Distance on a great circle

Time bar (total: 51.1s)

start0.0ms (0%)

Memory
0.1MiB live, 0.1MiB allocated

analyze1.1s (2.2%)

Memory
-8.7MiB live, 1 313.3MiB 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.0s (17.6%)

Memory
-51.0MiB live, 7 961.6MiB allocated
Samples
7.9s7 405×1valid
184.0ms851×0valid
Precisions
Click to see histograms. Total time spent on operations: 7.5s
ival-cos: 2.3s (30.6% of total)
ival-sin: 2.0s (27.2% of total)
ival-mult: 694.0ms (9.2% of total)
ival-sub: 663.0ms (8.8% of total)
ival-sqrt: 476.0ms (6.3% of total)
adjust: 446.0ms (5.9% of total)
ival-div: 298.0ms (4% of total)
ival-atan2: 248.0ms (3.3% of total)
ival-pow2: 208.0ms (2.8% of total)
ival-add: 123.0ms (1.6% of total)
exact: 11.0ms (0.1% of total)
ival-true: 8.0ms (0.1% of total)
ival-assert: 4.0ms (0.1% of total)
Bogosity

explain941.0ms (1.8%)

Memory
35.9MiB live, 994.7MiB allocated
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
75119(2.452147756164632e-119 9.665606034563798e-190 -2.385078775805371e+219 1.1224411942851382e+240 -6.583920211951377e-195)0-(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
74124(-2.2027964111711617e-218 1.5708686534695427e-43 -3.2672205418872203e+21 117.33630101679482 -4.833165147375565e-71)0-(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
62(-7.735166251139832e-143 -1.9411654537085823e-103 7.243063401901935e+235 -1.9754880843362676e+282 -3.8146874144998515e+276)3(-1.1859405392500544e-304 3.8036168763916167e-287 1.4713129299600604e+91 -2.229247576841507e+242 2.2313546946072066e+63)(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
11(-3.242534198193734e-220 6.04082647479712e+92 -1.0166969504521253e-66 1.3041088700680844e+290 2.573233550965961e-164)1(4.8212624520188956e+222 -1.4224019791677213e+102 -5.262565846530015e+273 1.8826956316760298e+161 5.188140384574683e+63)(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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-(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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-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 lambda1 lambda2) #s(literal 2 binary64)))sensitivity1981
sin.f64(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))sensitivity1941
-.f64(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))cancellation511
+.f64(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))cancellation11
Confusion
Predicted +Predicted -
+1330
-1158
Precision
0.5362903225806451
Recall
1.0
Confusion?
Predicted +Predicted MaybePredicted -
+13300
-11508
Precision?
0.5362903225806451
Recall?
1.0
Freqs
test
numberfreq
08
1101
2144
33
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
516.0ms468×1valid
10.0ms44×0valid
Compiler

Compiled 854 to 82 computations (90.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 477.0ms
ival-cos: 208.0ms (43.6% of total)
ival-sin: 120.0ms (25.1% of total)
ival-sub: 34.0ms (7.1% of total)
ival-mult: 34.0ms (7.1% of total)
adjust: 25.0ms (5.2% of total)
ival-div: 14.0ms (2.9% of total)
ival-sqrt: 13.0ms (2.7% of total)
ival-atan2: 12.0ms (2.5% of total)
ival-pow2: 10.0ms (2.1% of total)
ival-add: 4.0ms (0.8% of total)
ival-true: 1.0ms (0.2% of total)
exact: 1.0ms (0.2% of total)
ival-assert: 0.0ms (0% of total)

preprocess339.0ms (0.7%)

Memory
-3.2MiB live, 200.4MiB 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)

prune1.0ms (0%)

Memory
2.0MiB live, 2.0MiB allocated
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶58.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)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
Compiler

Compiled 70 to 26 computations (62.9% saved)

simplify366.0ms (0.7%)

Memory
-7.7MiB live, 262.0MiB 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)

localize314.0ms (0.6%)

Memory
-21.4MiB live, 302.2MiB allocated
Localize:

Found 4 expressions of interest:

NewMetricScoreProgram
accuracy0.46712875976844204
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
accuracy0.6854111749560378
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy15.715416198606029
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy16.53343292986602
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
Samples
275.0ms234×1valid
5.0ms22×0valid
Compiler

Compiled 392 to 28 computations (92.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 238.0ms
ival-cos: 86.0ms (36.2% of total)
ival-sin: 78.0ms (32.8% of total)
ival-mult: 19.0ms (8% of total)
adjust: 12.0ms (5.1% of total)
ival-add: 9.0ms (3.8% of total)
ival-sub: 8.0ms (3.4% 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.1% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series96.0ms (0.2%)

Memory
26.1MiB live, 105.6MiB allocated
Counts
8 → 276
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 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (* 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 (* 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 (* 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 (pow (sin (* 1/2 phi1)) 2) (taylor 0 phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (pow (sin (* -1/2 phi2)) 2) (taylor 0 phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -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))))) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (* -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 (* -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 (* 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
27.0ms
R
@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 (/ (- phi1 phi2) 2)) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2))
7.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 (/ (- phi1 phi2) 2)) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2))
5.0ms
phi1
@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 (/ (- phi1 phi2) 2)) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 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 (/ (- phi1 phi2) 2)) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 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 (/ (- phi1 phi2) 2)) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2))

simplify196.0ms (0.4%)

Memory
14.8MiB live, 206.7MiB allocated
Algorithm
1×egg-herbie
Rules
11 600×lower-fma.f64
11 600×lower-fma.f32
6 448×lower-*.f64
6 448×lower-*.f32
4 358×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03967655
112627612
240577506
080167178
Stop Event
1×iter limit
1×node limit
Counts
276 → 276
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)))
(* 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)))
(* 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)))
(* 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)))
(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 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)))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 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)))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 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)))
(pow (sin (* -1/2 phi2)) 2)
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* phi1 (+ (* -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))))) (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)))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 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)))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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)))
(* -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)))
(* -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)))
(* 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 (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)))) lambda1 (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 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (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 (*.f64 lambda1 lambda1) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.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))))) lambda1 (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)))))) (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)))) lambda1 (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 (*.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)) (fma.f64 lambda1 (*.f64 #s(literal -1/48 binary64) lambda1) #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 (neg.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)))) lambda1 (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 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 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/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 (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.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))))) lambda1 (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 (-.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/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))))
(* 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)) 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)) 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)) lambda1)
(+ (* (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))))
(* 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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (neg.f64 phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/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 (* (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)))
(+.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (neg.f64 phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))) (*.f64 (*.f64 phi2 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 (+ (* -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)))
(+.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (neg.f64 phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))) (*.f64 (*.f64 phi2 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 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1/6 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)))))))
(* 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 (*.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))) (fma.f64 phi2 (*.f64 #s(literal 1/48 binary64) phi2) #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)))
(+.f64 (fma.f64 (sin.f64 (*.f64 phi1 #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)))) (*.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 1 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)))
(fma.f64 #s(literal -1 binary64) (+.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (neg.f64 phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))) (*.f64 (*.f64 phi2 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)))))) #s(literal 1 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)))
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1/6 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)))))) 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))))
(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))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (neg.f64 phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (neg.f64 phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 phi2 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 (+ (* -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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (neg.f64 phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 phi2 phi2) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1/6 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))))))
(* -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))))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(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 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.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 (* -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))))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(+ (* 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 (*.f64 phi1 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)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(+ (* 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 (*.f64 phi1 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 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/6 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))))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(* 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 (*.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))) (fma.f64 phi1 (*.f64 #s(literal -1/48 binary64) phi1) #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)))
(+.f64 (neg.f64 (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #s(literal 1 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)))
(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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/6 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)) 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))))
(pow (sin (* -1/2 phi2)) 2)
(pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))
(*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (*.f64 phi1 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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))
(+ (* phi1 (+ (* phi1 (+ (* -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))))) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (*.f64 phi1 phi1) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1/6 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 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #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)))
(* 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))))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(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 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) 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)) 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)) 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 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))))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(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 (cos.f64 phi1) (fma.f64 (neg.f64 lambda2) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))) (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 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.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))) lambda2 (*.f64 (neg.f64 (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)))
(+.f64 (fma.f64 (cos.f64 phi1) (fma.f64 (neg.f64 lambda2) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 lambda2 lambda2) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.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))))) lambda2 (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)))))))
(* 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 (*.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))) (fma.f64 lambda2 (*.f64 #s(literal 1/48 binary64) lambda2) #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)))
(+.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) lambda2) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (neg.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 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 (neg.f64 lambda2) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.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))) lambda2 (*.f64 (neg.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 (- (* 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 (*.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 (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.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))))) lambda2 (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 (-.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/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))))
(* -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)) 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)) 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)) lambda2)
(+ (* (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))))
(* 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)))))))

rewrite257.0ms (0.5%)

Memory
3.3MiB live, 277.3MiB 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
026153
045153
1149133
2997129
08852127
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
8 → 256
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 phi1 phi2) #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))))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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))
(*.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))))))
(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 (-.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 (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 #s(literal 1/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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (neg.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 (-.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 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (/.f64 (cos.f64 (*.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 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)))

eval284.0ms (0.6%)

Memory
-4.7MiB live, 375.2MiB allocated
Compiler

Compiled 85 284 to 4 642 computations (94.6% saved)

prune578.0ms (1.1%)

Memory
-11.9MiB live, 642.3MiB allocated
Pruning

87 alts after pruning (87 fresh and 0 done)

PrunedKeptTotal
New1 029871 116
Fresh000
Picked101
Done000
Total1 030871 117
Accuracy
62.3%
Counts
1 117 → 87
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶56.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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
56.1%
(*.f64 R (*.f64 #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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.0%
(*.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))))))))))
56.5%
(*.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))))))))))
56.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.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))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (+.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))))))))))
55.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (*.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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.1%
(*.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 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)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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))))))))))
59.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))))))))))
48.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (*.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (-.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)))))))
58.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 (/.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))))))))))))))))
58.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 (/.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)))))))))))))
58.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 (/.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))))))))))))))
58.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 (-.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)))))))))))
58.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 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
58.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 (-.f64 #s(literal 1 binary64) (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))))))))))))
59.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 (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)))))))
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 (-.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)))))))))))))
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 (+.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)))))))))))))))
60.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 (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))))))))))
▶60.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (*.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))))))))))
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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶45.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.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 (*.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))))))))))
35.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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 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)))))))))))
53.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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
28.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 (*.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))))))))))))
▶16.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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (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))))))))))
43.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 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (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)))))))))))
46.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
37.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 (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))))))))))))
35.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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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))))))))))))
35.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 (-.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))))))))))
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 (/.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))))))))))
18.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 (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))))))))))
48.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))))))))))
45.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))))))))))
45.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 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/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))))))))))
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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #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 #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)))))))))))
45.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) #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)))))))))
46.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) #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)))))))))
34.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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (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))))))))))
37.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 (*.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)))) lambda1 (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)))))))))
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 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)))))))))
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)) (sin.f64 (/.f64 (-.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)))))))))
▶39.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 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
58.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 (+.f64 (+.f64 #s(literal 1/2 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)))))))))
45.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))))) (-.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))))))))
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)) (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))))))))
39.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) lambda2) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (neg.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)))))))
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)) (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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (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))))))))))
15.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 (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))))))))))
46.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 #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))))))))))
41.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 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))))))))))
43.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 #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))))))))))
40.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)))) #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))))))))))
38.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 (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))))))))))
35.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #s(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))))))))))
31.6%
(*.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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.6%
(*.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))))))))))
48.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.1%
(*.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))))))))))
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)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #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))))))))))
45.2%
(*.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))))))))))
42.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 (*.f64 phi1 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))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (-.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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 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))))))))))
45.0%
(*.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))))))))))
38.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 phi2) (cos.f64 phi1)) (fma.f64 (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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)) (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) lambda1 (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))))))))))
42.0%
(*.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))))))))))
44.0%
(*.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))))))))))
40.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 (*.f64 phi1 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)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.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))))))))))
40.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.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))))))))))
41.2%
(*.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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (neg.f64 phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 14 390 to 6 608 computations (54.1% saved)

simplify245.0ms (0.5%)

Memory
11.6MiB live, 286.1MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff448
(*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
cost-diff768
(*.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)))))
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-diff12800
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.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-diff1984
(/.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)))
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))
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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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))))
Rules
18 692×lower-fma.f32
18 686×lower-fma.f64
3 756×lower-*.f32
3 698×lower-*.f64
2 600×lower-+.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01132698
02042584
13442535
26822225
316632225
446152212
084702147
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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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))
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
(*.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 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))
(-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))
#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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(*.f64 phi2 #s(literal -1/2 binary64))
#s(literal -1/2 binary64)
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(*.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 (-.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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)))))
(sin.f64 (/.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 (*.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64))
(*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2))
(/.f64 #s(literal 2 binary64) lambda2)
(*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) 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 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(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)))))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(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))))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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)))))
(sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))
#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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.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 #s(literal 1 binary64) (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)) (pow.f64 (fma.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)))) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.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 #s(literal 1 binary64) (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)) (pow.f64 (fma.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)))) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.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 #s(literal 1 binary64) (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)) (pow.f64 (fma.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)))) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (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 (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 (*.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 lambda1 lambda2))) (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 #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))
(-.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 #s(literal 1 binary64) (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)) (pow.f64 (fma.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)))) #s(literal 2 binary64))))
#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)))))
(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)) (pow.f64 (fma.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)))) #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 (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)))) #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 (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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) 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 phi2 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(*.f64 phi2 #s(literal 1/2 binary64))
(*.f64 #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 #s(literal 1/2 binary64) phi2)) (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)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) 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 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 phi1 phi2)
(sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))) (*.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 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))
(*.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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))) #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))
(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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)) (*.f64 (cos.f64 phi2) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (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 (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 (*.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 lambda1 lambda2))) (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 #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.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) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))
(-.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
#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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
#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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(*.f64 phi2 #s(literal -1/2 binary64))
(*.f64 #s(literal -1/2 binary64) phi2)
#s(literal -1/2 binary64)
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(*.f64 phi2 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi2)
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))
(*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (cos.f64 phi2))
(pow.f64 (sin.f64 (*.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 2 binary64))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)) (*.f64 (cos.f64 phi2) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (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 (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 (*.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 lambda1 lambda2))) (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 #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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (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)) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(-.f64 #s(literal 1 binary64) (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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))
(sin.f64 (/.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))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(/.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(-.f64 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64))
(fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64))
(*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2))
(*.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1)
(/.f64 #s(literal 2 binary64) lambda2)
(*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))
(/.f64 #s(literal 4 binary64) 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 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(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 (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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(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 (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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))
(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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)) (*.f64 (cos.f64 phi2) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (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 (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 (*.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 lambda1 lambda2))) (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 #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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (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)) (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))
(-.f64 #s(literal 1 binary64) (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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))
(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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))
(*.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)))
(sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))
#s(literal -1 binary64)

localize774.0ms (1.5%)

Memory
47.5MiB live, 948.2MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy2.829132911574404
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
accuracy7.271191317956978
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy7.660261521364642
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy7.660261521364642
(sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))
accuracy4.059116493844433
(/.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)))
accuracy7.271191317956978
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy7.660261521364642
(sin.f64 (/.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))))
accuracy7.660261521364642
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy7.271191317956978
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy7.660261521364642
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy7.660261521364642
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
accuracy15.030178396384692
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
accuracy5.5409456053247865
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
accuracy6.167409613842018
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
accuracy7.3191982872451815
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
accuracy7.6826916070657045
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
accuracy0.203125
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
accuracy0.3207105059035104
(-.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))))))
accuracy7.271191317956978
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy7.660261521364642
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Samples
477.0ms118×1valid
127.0ms135×0invalid
8.0ms3×2valid
Compiler

Compiled 2 545 to 103 computations (96% saved)

Precisions
Click to see histograms. Total time spent on operations: 534.0ms
ival-sin: 104.0ms (19.5% of total)
ival-mult: 91.0ms (17.1% of total)
ival-cos: 82.0ms (15.4% of total)
ival-sub: 67.0ms (12.6% of total)
ival-sqrt: 43.0ms (8.1% of total)
ival-exp: 30.0ms (5.6% of total)
ival-atan2: 25.0ms (4.7% of total)
adjust: 23.0ms (4.3% of total)
ival-add: 23.0ms (4.3% of total)
ival-div: 17.0ms (3.2% of total)
ival-log: 16.0ms (3% of total)
ival-pow2: 11.0ms (2.1% of total)
exact: 1.0ms (0.2% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

series216.0ms (0.4%)

Memory
4.6MiB live, 239.9MiB allocated
Counts
24 → 744
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 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 #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 (-.f64 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))) (patch (/.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))) #<representation binary64>) () ())
#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())
#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())
#s(alt (*.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))))) (patch (*.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))))) #<representation binary64>) () ())
#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #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 (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 (-.f64 #s(literal 1/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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())
#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (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 (* -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 (* -1/2 lambda2) (taylor 0 lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor 0 lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (log (/ -2 lambda2))) (taylor 0 lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (log (/ -2 lambda2))) (* -1 (/ lambda1 lambda2))) (taylor 0 lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (log (/ -2 lambda2))) (* lambda1 (- (* -1/2 (/ lambda1 (pow lambda2 2))) (/ 1 lambda2)))) (taylor 0 lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (log (/ -2 lambda2))) (* lambda1 (- (* lambda1 (- (* -1/3 (/ lambda1 (pow lambda2 3))) (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 lambda2)))) (taylor 0 lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (sin (* -1/2 lambda2)) (taylor 0 lambda1) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2)))) (patch (sin.f64 (/.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)))) #<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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 lambda2)) (taylor 0 lambda1) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (taylor 0 lambda1) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (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 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 (* 1/2 lambda1) (taylor inf lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor inf lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (+ (log 2) (log (/ 1 lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log 2) (log (/ 1 lambda1)))) (* -1 (/ lambda2 lambda1))) (taylor inf lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log 2) (log (/ 1 lambda1)))) (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (/ (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2))) (pow lambda1 2))))) (taylor inf lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log 2) (log (/ 1 lambda1)))) (+ (* -1 (/ lambda2 lambda1)) (+ (* -1/2 (/ (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2))) (pow lambda1 2))) (* -1/6 (/ (+ (* -6 (pow lambda2 3)) (+ (* 2 (pow lambda2 3)) (* 6 (pow lambda2 3)))) (pow lambda1 3)))))) (taylor inf lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda1) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda1) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda1) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor inf lambda1) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor inf lambda1) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor inf lambda1) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor inf lambda1) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (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 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 (* 1/2 lambda1) (taylor -inf lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor -inf lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (+ (log -2) (log (/ -1 lambda1)))) (taylor -inf lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log -2) (log (/ -1 lambda1)))) (* -1 (/ lambda2 lambda1))) (taylor -inf lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log -2) (log (/ -1 lambda1)))) (* -1 (/ (+ lambda2 (* 1/2 (/ (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2))) lambda1))) lambda1))) (taylor -inf lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log -2) (log (/ -1 lambda1)))) (* -1 (/ (+ lambda2 (* -1 (/ (+ (* -1/2 (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2)))) (* 1/6 (/ (+ (* -6 (pow lambda2 3)) (+ (* -2 (pow lambda2 3)) (* 6 (pow lambda2 3)))) lambda1))) lambda1))) lambda1))) (taylor -inf lambda1) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<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 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (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 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 (* 1/2 lambda1) (taylor 0 lambda2) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.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))) (patch (/.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))) #<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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor 0 lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (log (/ 2 lambda1))) (taylor 0 lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (log (/ 2 lambda1))) (* -1 (/ lambda2 lambda1))) (taylor 0 lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (log (/ 2 lambda1))) (* lambda2 (- (* -1/2 (/ lambda2 (pow lambda1 2))) (/ 1 lambda1)))) (taylor 0 lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (log (/ 2 lambda1))) (* lambda2 (- (* lambda2 (- (* -1/3 (/ lambda2 (pow lambda1 3))) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1)))) (taylor 0 lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 #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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda2) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (sin (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2)))) (patch (sin.f64 (/.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)))) #<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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1))))) (taylor 0 lambda2) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (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 (* -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 (* -1/2 lambda2) (taylor inf lambda2) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor inf lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (+ (log -2) (log (/ 1 lambda2)))) (taylor inf lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log -2) (log (/ 1 lambda2)))) (* -1 (/ lambda1 lambda2))) (taylor inf lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log -2) (log (/ 1 lambda2)))) (+ (* -1 (/ lambda1 lambda2)) (* -1/2 (/ (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2))) (pow lambda2 2))))) (taylor inf lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log -2) (log (/ 1 lambda2)))) (+ (* -1 (/ lambda1 lambda2)) (+ (* -1/2 (/ (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2))) (pow lambda2 2))) (* -1/6 (/ (+ (* -6 (pow lambda1 3)) (+ (* 2 (pow lambda1 3)) (* 6 (pow lambda1 3)))) (pow lambda2 3)))))) (taylor inf lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda2) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda2) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda2) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor inf lambda2) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor inf lambda2) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor inf lambda2) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor inf lambda2) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (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 (* -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 (* -1/2 lambda2) (taylor -inf lambda2) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.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))) (patch (/.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))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor -inf lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (patch (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<representation binary64>) () ())) ())
#s(alt (* -1 (+ (log 2) (log (/ -1 lambda2)))) (taylor -inf lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log 2) (log (/ -1 lambda2)))) (* -1 (/ lambda1 lambda2))) (taylor -inf lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log 2) (log (/ -1 lambda2)))) (* -1 (/ (+ lambda1 (* 1/2 (/ (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2))) lambda2))) lambda2))) (taylor -inf lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (+ (log 2) (log (/ -1 lambda2)))) (* -1 (/ (+ lambda1 (* -1 (/ (+ (* -1/2 (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2)))) (* 1/6 (/ (+ (* -6 (pow lambda1 3)) (+ (* -2 (pow lambda1 3)) (* 6 (pow lambda1 3)))) lambda2))) lambda2))) lambda2))) (taylor -inf lambda2) (#s(alt (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (patch (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<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 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.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)))) (patch (sin.f64 (/.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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))) (patch (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* 1/24 (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<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 (* 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (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 (* -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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<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 (* 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) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (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 (* -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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<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 (* 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) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (* -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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* 1/24 (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -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))))) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<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 (* 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 phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (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 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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 (- phi1 phi2))) 2) (taylor inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<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 (* 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) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (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 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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))) (patch (*.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))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #<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 (* 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 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<representation binary64>) () ())) ())
Calls

12 calls:

TimeVariablePointExpression
30.0ms
phi2
@-inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- phi1 phi2) 2) (/ (- lambda1 lambda2) 2) (+ (pow (sin (/ (- phi1 phi2) 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)))))) (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2))))) (sin (/ (- lambda1 lambda2) 2))) (exp (* (log (/ 2 (- lambda1 lambda2))) -1)) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1)))) (* (log (/ 2 (- lambda1 lambda2))) -1) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (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 phi2) 2)) 2) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (* 2 (* 1/2 (- phi1 phi2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- lambda1 lambda2) 1/2)) (sin (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2)))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1))))
29.0ms
lambda2
@-inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- phi1 phi2) 2) (/ (- lambda1 lambda2) 2) (+ (pow (sin (/ (- phi1 phi2) 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)))))) (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2))))) (sin (/ (- lambda1 lambda2) 2))) (exp (* (log (/ 2 (- lambda1 lambda2))) -1)) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1)))) (* (log (/ 2 (- lambda1 lambda2))) -1) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (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 phi2) 2)) 2) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (* 2 (* 1/2 (- phi1 phi2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- lambda1 lambda2) 1/2)) (sin (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2)))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1))))
16.0ms
phi1
@0
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- phi1 phi2) 2) (/ (- lambda1 lambda2) 2) (+ (pow (sin (/ (- phi1 phi2) 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)))))) (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2))))) (sin (/ (- lambda1 lambda2) 2))) (exp (* (log (/ 2 (- lambda1 lambda2))) -1)) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1)))) (* (log (/ 2 (- lambda1 lambda2))) -1) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (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 phi2) 2)) 2) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (* 2 (* 1/2 (- phi1 phi2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- lambda1 lambda2) 1/2)) (sin (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2)))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1))))
10.0ms
lambda1
@0
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- phi1 phi2) 2) (/ (- lambda1 lambda2) 2) (+ (pow (sin (/ (- phi1 phi2) 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)))))) (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2))))) (sin (/ (- lambda1 lambda2) 2))) (exp (* (log (/ 2 (- lambda1 lambda2))) -1)) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1)))) (* (log (/ 2 (- lambda1 lambda2))) -1) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (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 phi2) 2)) 2) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (* 2 (* 1/2 (- phi1 phi2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- lambda1 lambda2) 1/2)) (sin (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2)))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1))))
10.0ms
lambda1
@inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- phi1 phi2) 2) (/ (- lambda1 lambda2) 2) (+ (pow (sin (/ (- phi1 phi2) 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)))))) (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2))) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2))))) (sin (/ (- lambda1 lambda2) 2))) (exp (* (log (/ 2 (- lambda1 lambda2))) -1)) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1)))) (* (log (/ 2 (- lambda1 lambda2))) -1) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (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 phi2) 2)) 2) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (* 2 (* 1/2 (- phi1 phi2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- lambda1 lambda2) 1/2)) (sin (/ (- (* lambda1 (/ 2 lambda2)) 2) (* 2 (/ 2 lambda2)))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1))))

simplify250.0ms (0.5%)

Memory
-19.3MiB live, 265.6MiB allocated
Algorithm
1×egg-herbie
Rules
13 566×lower-fma.f64
13 566×lower-fma.f32
8 282×lower-*.f64
8 282×lower-*.f32
4 930×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
093214367
1296513816
0881313198
Stop Event
1×iter limit
1×node limit
Counts
744 → 738
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 (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 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))))
(* -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)))
(+ (* 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)))
(+ (* 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 (log (/ -2 lambda2)))
(+ (* -1 (log (/ -2 lambda2))) (* -1 (/ lambda1 lambda2)))
(+ (* -1 (log (/ -2 lambda2))) (* lambda1 (- (* -1/2 (/ lambda1 (pow lambda2 2))) (/ 1 lambda2))))
(+ (* -1 (log (/ -2 lambda2))) (* lambda1 (- (* lambda1 (- (* -1/3 (/ lambda1 (pow lambda2 3))) (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 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 (+ (* (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 (* -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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (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)))))
(+ (* (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)))))))))
(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)))))))))
(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)))))))))
(* (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 (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))
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))))
(* 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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- 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))))
(* (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 (+ (log 2) (log (/ 1 lambda1))))
(+ (* -1 (+ (log 2) (log (/ 1 lambda1)))) (* -1 (/ lambda2 lambda1)))
(+ (* -1 (+ (log 2) (log (/ 1 lambda1)))) (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (/ (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2))) (pow lambda1 2)))))
(+ (* -1 (+ (log 2) (log (/ 1 lambda1)))) (+ (* -1 (/ lambda2 lambda1)) (+ (* -1/2 (/ (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2))) (pow lambda1 2))) (* -1/6 (/ (+ (* -6 (pow lambda2 3)) (+ (* 2 (pow lambda2 3)) (* 6 (pow lambda2 3)))) (pow lambda1 3))))))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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))
(+ (* (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)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(* (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 (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))
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))))))
(* 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) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))))))
(* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))))))
(* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))))))
(* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))))))
(* 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)))
(* (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 (+ (log -2) (log (/ -1 lambda1))))
(+ (* -1 (+ (log -2) (log (/ -1 lambda1)))) (* -1 (/ lambda2 lambda1)))
(+ (* -1 (+ (log -2) (log (/ -1 lambda1)))) (* -1 (/ (+ lambda2 (* 1/2 (/ (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2))) lambda1))) lambda1)))
(+ (* -1 (+ (log -2) (log (/ -1 lambda1)))) (* -1 (/ (+ lambda2 (* -1 (/ (+ (* -1/2 (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2)))) (* 1/6 (/ (+ (* -6 (pow lambda2 3)) (+ (* -2 (pow lambda2 3)) (* 6 (pow lambda2 3)))) lambda1))) lambda1))) 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 (+ (* (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 (+ (* (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 (+ (* (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 (+ (* (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))))
(+ (* (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))))
(sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))
(sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))
(sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))
(sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(* (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 (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)))
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)))
(* 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)))
(+ (* -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)))
(+ (* -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 (log (/ 2 lambda1)))
(+ (* -1 (log (/ 2 lambda1))) (* -1 (/ lambda2 lambda1)))
(+ (* -1 (log (/ 2 lambda1))) (* lambda2 (- (* -1/2 (/ lambda2 (pow lambda1 2))) (/ 1 lambda1))))
(+ (* -1 (log (/ 2 lambda1))) (* lambda2 (- (* lambda2 (- (* -1/3 (/ lambda2 (pow lambda1 3))) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 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 (+ (* (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)))
(- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (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)))))
(+ (* (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)))))))))
(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)))))))))
(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)))))))))
(* (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 (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 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))))
(* -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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- 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))
(* (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 (+ (log -2) (log (/ 1 lambda2))))
(+ (* -1 (+ (log -2) (log (/ 1 lambda2)))) (* -1 (/ lambda1 lambda2)))
(+ (* -1 (+ (log -2) (log (/ 1 lambda2)))) (+ (* -1 (/ lambda1 lambda2)) (* -1/2 (/ (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2))) (pow lambda2 2)))))
(+ (* -1 (+ (log -2) (log (/ 1 lambda2)))) (+ (* -1 (/ lambda1 lambda2)) (+ (* -1/2 (/ (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2))) (pow lambda2 2))) (* -1/6 (/ (+ (* -6 (pow lambda1 3)) (+ (* 2 (pow lambda1 3)) (* 6 (pow lambda1 3)))) (pow lambda2 3))))))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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))
(+ (* (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)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(* (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 (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 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)))))
(* -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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ 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)))))
(* (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 (+ (log 2) (log (/ -1 lambda2))))
(+ (* -1 (+ (log 2) (log (/ -1 lambda2)))) (* -1 (/ lambda1 lambda2)))
(+ (* -1 (+ (log 2) (log (/ -1 lambda2)))) (* -1 (/ (+ lambda1 (* 1/2 (/ (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2))) lambda2))) lambda2)))
(+ (* -1 (+ (log 2) (log (/ -1 lambda2)))) (* -1 (/ (+ lambda1 (* -1 (/ (+ (* -1/2 (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2)))) (* 1/6 (/ (+ (* -6 (pow lambda1 3)) (+ (* -2 (pow lambda1 3)) (* 6 (pow lambda1 3)))) lambda2))) lambda2))) 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 (+ (* (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 (+ (* (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 (+ (* (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 (+ (* (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)))
(+ (* (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))))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 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))))
(* (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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))
(+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(+ (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(+ (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* 1/24 (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))))))))
(* (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))))))))
(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)))
(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))
(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 (* 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) (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 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 (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 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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (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)))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(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) (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)))
(* (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 (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 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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (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)))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(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) (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 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))
(+ (* 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 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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))
(+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(+ (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(+ (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* 1/24 (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))))))))
(* (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))))))))
(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 (* 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)))
(pow (sin (* -1/2 phi2)) 2)
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* phi1 (+ (* -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))))) (pow (sin (* -1/2 phi2)) 2))
(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 (* 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 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 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 (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))
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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (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)))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(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) (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)))
(* (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 (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))
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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(* (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)))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(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 (* -1 (+ phi2 (* -1 phi1))))))
(+ (* (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))
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 (*.f64 lambda1 (cos.f64 phi1)) (*.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 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (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) (*.f64 (cos.f64 phi2) (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 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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)) 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))
(*.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 lambda1 (cos.f64 phi1)) (*.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 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (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) (*.f64 (cos.f64 phi2) (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 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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)) 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 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 phi2 phi1)) #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 (fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 (sin.f64 lambda2)) (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 (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 (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 lambda2) (*.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 phi2 phi1)) #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 (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 (fma.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (neg.f64 (sin.f64 lambda2)) (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))) lambda1 (*.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 phi2 phi1)) #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 (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))))
(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 #s(literal 1/2 binary64) (*.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))))
(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 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))))
(* -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)))
(*.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 (*.f64 lambda1 (cos.f64 phi1)) (*.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 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (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) (*.f64 (cos.f64 phi2) (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 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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)) 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))
(*.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)))
(*.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 (*.f64 lambda1 (cos.f64 phi1)) (*.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 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (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) (*.f64 (cos.f64 phi2) (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 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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)) 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 (log (/ -2 lambda2)))
(neg.f64 (log.f64 (/.f64 #s(literal -2 binary64) lambda2)))
(+ (* -1 (log (/ -2 lambda2))) (* -1 (/ lambda1 lambda2)))
(-.f64 (/.f64 lambda1 (neg.f64 lambda2)) (log.f64 (/.f64 #s(literal -2 binary64) lambda2)))
(+ (* -1 (log (/ -2 lambda2))) (* lambda1 (- (* -1/2 (/ lambda1 (pow lambda2 2))) (/ 1 lambda2))))
(fma.f64 (fma.f64 (/.f64 lambda1 (*.f64 lambda2 lambda2)) #s(literal -1/2 binary64) (/.f64 #s(literal -1 binary64) lambda2)) lambda1 (neg.f64 (log.f64 (/.f64 #s(literal -2 binary64) lambda2))))
(+ (* -1 (log (/ -2 lambda2))) (* lambda1 (- (* lambda1 (- (* -1/3 (/ lambda1 (pow lambda2 3))) (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 lambda2))))
(fma.f64 (fma.f64 (fma.f64 (/.f64 lambda1 (*.f64 (*.f64 lambda2 lambda2) lambda2)) #s(literal -1/3 binary64) (/.f64 #s(literal -1/2 binary64) (*.f64 lambda2 lambda2))) lambda1 (/.f64 #s(literal -1 binary64) lambda2)) lambda1 (neg.f64 (log.f64 (/.f64 #s(literal -2 binary64) 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 #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 lambda1 #s(literal -1/8 binary64)) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (cos.f64 phi2) (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 (* -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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (*.f64 (neg.f64 lambda1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (cos.f64 phi2) (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 (* 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (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) (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (cos.f64 phi2) (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 (* 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (cos.f64 phi2) (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 lambda1 #s(literal -1/2 binary64)) (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 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 lambda1 (cos.f64 phi1)) (*.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 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (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) (*.f64 (cos.f64 phi2) (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 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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)) 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 #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 lambda1 #s(literal -1/8 binary64)) (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))))
(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 lambda1 #s(literal -1/8 binary64)) (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))))
(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 lambda1 #s(literal -1/8 binary64)) (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))))
(* (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 (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)))
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 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 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 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 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 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 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 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 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/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)))
(*.f64 (*.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 (+ (log 2) (log (/ 1 lambda1))))
(neg.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 lambda1)))
(+ (* -1 (+ (log 2) (log (/ 1 lambda1)))) (* -1 (/ lambda2 lambda1)))
(-.f64 (/.f64 (neg.f64 lambda2) lambda1) (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 lambda1)))
(+ (* -1 (+ (log 2) (log (/ 1 lambda1)))) (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (/ (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2))) (pow lambda1 2)))))
(fma.f64 (/.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64) (-.f64 (/.f64 (neg.f64 lambda2) lambda1) (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 lambda1))))
(+ (* -1 (+ (log 2) (log (/ 1 lambda1)))) (+ (* -1 (/ lambda2 lambda1)) (+ (* -1/2 (/ (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2))) (pow lambda1 2))) (* -1/6 (/ (+ (* -6 (pow lambda2 3)) (+ (* 2 (pow lambda2 3)) (* 6 (pow lambda2 3)))) (pow lambda1 3))))))
(-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 lambda2 lambda2) #s(literal 2 binary64)) lambda2) (*.f64 (*.f64 lambda1 lambda1) lambda1)) #s(literal -1/6 binary64) (fma.f64 (/.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64) (/.f64 (neg.f64 lambda2) lambda1))) (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 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 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)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 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)))
(* (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 lambda1 lambda2) #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 lambda1 lambda2) #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 lambda1 lambda2) #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 lambda1 lambda2) #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 (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)))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(*.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 (* -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)) (-.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 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 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 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 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 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 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)))
(* 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) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -2 binary64) #s(literal 2 binary64)) lambda2) #s(literal -1/4 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -2 binary64) #s(literal 2 binary64)) lambda2) #s(literal -1/4 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -2 binary64) #s(literal 2 binary64)) lambda2) #s(literal -1/4 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2)))))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -2 binary64) #s(literal 2 binary64)) lambda2) #s(literal -1/4 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)))
(*.f64 (*.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 (+ lambda2 (* -1 lambda1)))) 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 (+ lambda2 (* -1 lambda1)))) 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 (+ lambda2 (* -1 lambda1)))) 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 (+ (log -2) (log (/ -1 lambda1))))
(neg.f64 (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) lambda1)) (log.f64 #s(literal -2 binary64))))
(+ (* -1 (+ (log -2) (log (/ -1 lambda1)))) (* -1 (/ lambda2 lambda1)))
(-.f64 (/.f64 (neg.f64 lambda2) lambda1) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) lambda1)) (log.f64 #s(literal -2 binary64))))
(+ (* -1 (+ (log -2) (log (/ -1 lambda1)))) (* -1 (/ (+ lambda2 (* 1/2 (/ (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2))) lambda1))) lambda1)))
(-.f64 (/.f64 (fma.f64 (/.f64 (*.f64 lambda2 lambda2) lambda1) #s(literal 1/2 binary64) lambda2) (neg.f64 lambda1)) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) lambda1)) (log.f64 #s(literal -2 binary64))))
(+ (* -1 (+ (log -2) (log (/ -1 lambda1)))) (* -1 (/ (+ lambda2 (* -1 (/ (+ (* -1/2 (+ (* -1 (pow lambda2 2)) (* 2 (pow lambda2 2)))) (* 1/6 (/ (+ (* -6 (pow lambda2 3)) (+ (* -2 (pow lambda2 3)) (* 6 (pow lambda2 3)))) lambda1))) lambda1))) lambda1)))
(-.f64 (/.f64 (-.f64 lambda2 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) #s(literal -2 binary64)) lambda1) #s(literal 1/6 binary64) (*.f64 (*.f64 lambda2 lambda2) #s(literal -1/2 binary64))) lambda1)) (neg.f64 lambda1)) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) lambda1)) (log.f64 #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (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)))
(-.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 phi1)) (cos.f64 phi2) (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 (+ (* (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)))
(-.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 phi1)) (cos.f64 phi2) (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 (+ (* (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)))
(-.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 phi1)) (cos.f64 phi2) (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))
(+ (* (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)))
(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)))
(sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -2 binary64) #s(literal 2 binary64)) lambda2) #s(literal -1/4 binary64)))
(sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -2 binary64) #s(literal 2 binary64)) lambda2) #s(literal -1/4 binary64)))
(sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -2 binary64) #s(literal 2 binary64)) lambda2) #s(literal -1/4 binary64)))
(sin (* -1/4 (* lambda2 (+ 2 (* -2 (/ lambda1 lambda2))))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -2 binary64) #s(literal 2 binary64)) lambda2) #s(literal -1/4 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)))
(* (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 (*.f64 (neg.f64 lambda2) (*.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))) (*.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 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi2) (*.f64 (*.f64 lambda2 (*.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)) (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 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (fma.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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)) 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))
(*.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 #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 (*.f64 (neg.f64 lambda2) (*.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))) (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 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi2) (*.f64 (*.f64 lambda2 (*.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 (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 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (fma.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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)) 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))))
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 phi2 phi1)) #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 phi2 phi1))) #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 (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))) (cos.f64 phi2) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) lambda2 (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 (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 (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/12 binary64) lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 lambda1) (*.f64 (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) lambda2 (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 (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)))
(fma.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal -1/2 binary64) (-.f64 #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)))
(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 #s(literal 1/2 binary64) (*.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)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)) lambda2 (*.f64 (cos.f64 lambda1) #s(literal 1/4 binary64))) lambda2 (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(+ (* -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)))
(*.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 (*.f64 (neg.f64 lambda2) (*.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))) (*.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 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi2) (*.f64 (*.f64 lambda2 (*.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)) (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 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (fma.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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)) 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))
(*.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)))
(*.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 (*.f64 (neg.f64 lambda2) (*.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))) (*.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 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi2) (*.f64 (*.f64 lambda2 (*.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)) (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 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (fma.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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)) 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 (log (/ 2 lambda1)))
(neg.f64 (log.f64 (/.f64 #s(literal 2 binary64) lambda1)))
(+ (* -1 (log (/ 2 lambda1))) (* -1 (/ lambda2 lambda1)))
(-.f64 (/.f64 (neg.f64 lambda2) lambda1) (log.f64 (/.f64 #s(literal 2 binary64) lambda1)))
(+ (* -1 (log (/ 2 lambda1))) (* lambda2 (- (* -1/2 (/ lambda2 (pow lambda1 2))) (/ 1 lambda1))))
(fma.f64 (fma.f64 (/.f64 lambda2 (*.f64 lambda1 lambda1)) #s(literal -1/2 binary64) (/.f64 #s(literal -1 binary64) lambda1)) lambda2 (neg.f64 (log.f64 (/.f64 #s(literal 2 binary64) lambda1))))
(+ (* -1 (log (/ 2 lambda1))) (* lambda2 (- (* lambda2 (- (* -1/3 (/ lambda2 (pow lambda1 3))) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))))
(fma.f64 (fma.f64 (fma.f64 (/.f64 lambda2 (*.f64 (*.f64 lambda1 lambda1) lambda1)) #s(literal -1/3 binary64) (/.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda1))) lambda2 (/.f64 #s(literal -1 binary64) lambda1)) lambda2 (neg.f64 (log.f64 (/.f64 #s(literal 2 binary64) lambda1))))
(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 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 lambda2 #s(literal -1/2 binary64)) (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 lambda2 #s(literal -1/8 binary64)) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (cos.f64 phi2) (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 (*.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)))) (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (cos.f64 phi2) (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 (- (* -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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (*.f64 (neg.f64 lambda2) (*.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 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) lambda2 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (cos.f64 phi2) (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 (- (* 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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 phi1) (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) lambda2 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (cos.f64 phi2) (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 (*.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 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 (*.f64 (neg.f64 lambda2) (*.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))) (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 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi2) (*.f64 (*.f64 lambda2 (*.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 (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 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (fma.f64 (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (*.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 (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)) 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 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 lambda2 #s(literal -1/2 binary64)) (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 lambda2 #s(literal -1/8 binary64)) (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)))
(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 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 lambda2 #s(literal -1/2 binary64)) (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 lambda2 #s(literal -1/8 binary64)) (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)))
(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 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 lambda2 #s(literal -1/2 binary64)) (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 lambda2 #s(literal -1/8 binary64)) (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)))
(* (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 (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 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 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 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 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 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 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 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 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 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #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)))
(*.f64 (*.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 (+ (log -2) (log (/ 1 lambda2))))
(neg.f64 (-.f64 (log.f64 #s(literal -2 binary64)) (log.f64 lambda2)))
(+ (* -1 (+ (log -2) (log (/ 1 lambda2)))) (* -1 (/ lambda1 lambda2)))
(-.f64 (/.f64 lambda1 (neg.f64 lambda2)) (-.f64 (log.f64 #s(literal -2 binary64)) (log.f64 lambda2)))
(+ (* -1 (+ (log -2) (log (/ 1 lambda2)))) (+ (* -1 (/ lambda1 lambda2)) (* -1/2 (/ (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2))) (pow lambda2 2)))))
(fma.f64 (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(literal -1/2 binary64) (-.f64 (/.f64 lambda1 (neg.f64 lambda2)) (-.f64 (log.f64 #s(literal -2 binary64)) (log.f64 lambda2))))
(+ (* -1 (+ (log -2) (log (/ 1 lambda2)))) (+ (* -1 (/ lambda1 lambda2)) (+ (* -1/2 (/ (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2))) (pow lambda2 2))) (* -1/6 (/ (+ (* -6 (pow lambda1 3)) (+ (* 2 (pow lambda1 3)) (* 6 (pow lambda1 3)))) (pow lambda2 3))))))
(-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) #s(literal 2 binary64)) lambda1) (*.f64 (*.f64 lambda2 lambda2) lambda2)) #s(literal -1/6 binary64) (fma.f64 (/.f64 (*.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(literal -1/2 binary64) (/.f64 lambda1 (neg.f64 lambda2)))) (-.f64 (log.f64 #s(literal -2 binary64)) (log.f64 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 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 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)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 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)))
(* (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 (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 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 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 lambda2 lambda1)) #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)) (-.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 (+ 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)) (-.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 (+ 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)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #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)))
(*.f64 (*.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 (+ (log 2) (log (/ -1 lambda2))))
(neg.f64 (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) lambda2)) (log.f64 #s(literal 2 binary64))))
(+ (* -1 (+ (log 2) (log (/ -1 lambda2)))) (* -1 (/ lambda1 lambda2)))
(-.f64 (/.f64 lambda1 (neg.f64 lambda2)) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) lambda2)) (log.f64 #s(literal 2 binary64))))
(+ (* -1 (+ (log 2) (log (/ -1 lambda2)))) (* -1 (/ (+ lambda1 (* 1/2 (/ (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2))) lambda2))) lambda2)))
(-.f64 (/.f64 (fma.f64 (/.f64 (*.f64 lambda1 lambda1) lambda2) #s(literal 1/2 binary64) lambda1) (neg.f64 lambda2)) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) lambda2)) (log.f64 #s(literal 2 binary64))))
(+ (* -1 (+ (log 2) (log (/ -1 lambda2)))) (* -1 (/ (+ lambda1 (* -1 (/ (+ (* -1/2 (+ (* -1 (pow lambda1 2)) (* 2 (pow lambda1 2)))) (* 1/6 (/ (+ (* -6 (pow lambda1 3)) (+ (* -2 (pow lambda1 3)) (* 6 (pow lambda1 3)))) lambda2))) lambda2))) lambda2)))
(-.f64 (/.f64 (-.f64 lambda1 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal -2 binary64)) lambda2) #s(literal 1/6 binary64) (*.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64))) lambda2)) (neg.f64 lambda2)) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) lambda2)) (log.f64 #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (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)))
(-.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 phi1)) (cos.f64 phi2) (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 (+ (* (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)))
(-.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 phi1)) (cos.f64 phi2) (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 (+ (* (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)))
(-.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 phi1)) (cos.f64 phi2) (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 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 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)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))
(sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2))))
(sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 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)))
(* (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 (*.f64 #s(literal -1/2 binary64) 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 #s(literal -1/2 binary64) 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)) (*.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.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)))))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(+ (* -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 #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 (*.f64 (neg.f64 phi2) (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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/6 binary64) phi2) (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))))
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 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (fma.f64 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)) phi2 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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))))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) (sin.f64 phi1)) phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))))
(* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))
(+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) phi2 #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))))
(+ (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(fma.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))) (fma.f64 #s(literal 1/24 binary64) (*.f64 phi2 phi2) #s(literal -1/2 binary64))) (*.f64 phi2 phi2) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))))
(+ (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* 1/24 (* (cos phi1) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) phi2 #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))) (*.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))) (fma.f64 #s(literal -1/720 binary64) (*.f64 phi2 phi2) #s(literal 1/24 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 (*.f64 #s(literal -1/2 binary64) 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 #s(literal -1/2 binary64) 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)) (*.f64 (*.f64 (*.f64 phi2 phi2) (*.f64 phi2 phi2)) (*.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)))))
(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 phi2 #s(literal -1/8 binary64)) (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)))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.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 (- (* -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 #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 (-.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 (- (* 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 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #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 (-.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)))))
(pow (sin (* 1/2 phi1)) 2)
(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))))) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (*.f64 (neg.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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/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 #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 (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/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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/6 binary64) phi2) (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 (- (* -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 (* 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)))
(fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #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)))
(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 #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)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) (sin.f64 phi1)) phi2 (*.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 #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 (*.f64 (neg.f64 phi2) (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 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 #s(literal 1/6 binary64) phi2) (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))))
(* (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 (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 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 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 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 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 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 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 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 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 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/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)))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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))))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(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))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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)))
(*.f64 (*.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 (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 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 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 lambda2 lambda1)) #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)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/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)))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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))))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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 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 (*.f64 #s(literal -1/2 binary64) 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 #s(literal -1/2 binary64) 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)) (*.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (*.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)))))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(+ (* -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 #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(+ (* 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 (*.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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(+ (* 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 (*.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 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 #s(literal -1/6 binary64) 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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))) (* (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 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))) phi1 (neg.f64 (*.f64 (sin.f64 phi2) #s(literal -1/2 binary64)))) phi1 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) (neg.f64 (sin.f64 phi2))) phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))) phi1 (neg.f64 (*.f64 (sin.f64 phi2) #s(literal -1/2 binary64)))) phi1 (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))))
(* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))
(*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+ (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(fma.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1) #s(literal -1/2 binary64))) (*.f64 phi1 phi1) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+ (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))) (* 1/24 (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) phi1 #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1) #s(literal 1/24 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 (*.f64 #s(literal -1/2 binary64) 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 #s(literal -1/2 binary64) 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)) (*.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)) (*.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)))))
(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 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 #s(literal 1/2 binary64) phi1) (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 phi1 #s(literal -1/8 binary64)) (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 (* 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (-.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 (* 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)))
(fma.f64 (fma.f64 (neg.f64 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)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) phi1 (-.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 (* 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)))
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) phi1 (-.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)))))
(pow (sin (* -1/2 phi2)) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))
(*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (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 phi1 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(+ (* phi1 (+ (* phi1 (+ (* -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))))) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 #s(literal -1/6 binary64) 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)))) (*.f64 phi1 phi1) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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 phi1 #s(literal -1/2 binary64)) (cos.f64 phi2) (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 (* 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))))
(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 #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))))
(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 #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(+ (* 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 (*.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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(+ (* 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 (*.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 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 #s(literal -1/6 binary64) 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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(* (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 (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)))
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 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 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 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 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 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 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 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 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/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)))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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))))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* 1/2 (- phi1 phi2))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(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))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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)))
(*.f64 (*.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 (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)))
phi1
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(- (+ 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 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)) (-.f64 #s(literal 1/2 binary64) (*.f64 (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)) (-.f64 #s(literal 1/2 binary64) (*.f64 (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)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(* (cos phi1) (* (cos phi2) (* (sin (* 1/4 (* lambda2 (- (* 2 (/ lambda1 lambda2)) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 2 binary64) #s(literal -2 binary64)) lambda2) #s(literal 1/4 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/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)))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 phi1)) (cos.f64 phi2) (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))))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (* 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 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)))

rewrite334.0ms (0.7%)

Memory
1.9MiB live, 274.7MiB allocated
Rules
3 496×lower-*.f32
3 450×lower-*.f64
3 142×lower-/.f32
3 132×lower-/.f64
2 856×lower-fma.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
084370
0146298
1478279
23401272
08151256
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
24 → 1 053
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 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 #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 (-.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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.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 (*.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 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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))
(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 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 phi1 phi2))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin.f64 (/.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))))
(sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))
Outputs
(*.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 (*.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 (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 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(*.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 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 (neg.f64 (-.f64 phi1 phi2))) #s(literal 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 (-.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) (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 #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 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 (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 #s(literal 1/2 binary64) phi1 (*.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 (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)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.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 (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 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))
(*.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 (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(*.f64 (neg.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)))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(*.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)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(pow.f64 (*.f64 #s(literal 1/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 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2)))) (neg.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))
(/.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 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.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 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda2))) #s(literal -4 binary64))
(/.f64 (-.f64 lambda1 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 lambda1) (neg.f64 lambda2)) #s(literal -2 binary64))
(/.f64 (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 #s(literal -2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 (neg.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 (-.f64 lambda1 lambda2))))
(/.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 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2))) (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2)))
(/.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 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda2)))))
(/.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 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.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/2 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.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 #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 #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 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 lambda1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda2))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal -1 binary64))) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(exp.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(+.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 #s(literal 1/2 binary64) lambda2)))
(*.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 (-.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)))))
(/.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))))))
(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 (-.f64 #s(literal 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 #s(literal 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))) (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 (-.f64 #s(literal 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 (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 (*.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 #s(literal 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 (*.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 (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 #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 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 (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)) (*.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 (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 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 (exp.f64 (log.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)))) (exp.f64 (log.f64 (+.f64 lambda2 lambda1))))
(/.f64 (exp.f64 (log.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)))) (exp.f64 (log.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 (*.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 -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 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 #s(literal 1 binary64) lambda1 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(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 (log.f64 (-.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 (*.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 -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 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal 1 binary64) phi1 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))
(fma.f64 #s(literal -1 binary64) phi2 phi1)
(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 (+.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))
(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))
(/.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 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (fma.f64 (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)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 (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 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (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)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (fma.f64 (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)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (fma.f64 (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 (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 (-.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 (fma.f64 (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)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (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 (+.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (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)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (fma.f64 (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)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (fma.f64 (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 (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 (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 (-.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 (+.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)))))
(/.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) (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 #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))))))
(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 (-.f64 #s(literal 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 (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 phi1 phi2)) #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 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 (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 (+.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 (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 (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 (*.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 #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.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 #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 (/.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 #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 (fma.f64 (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)))) #s(literal 1/2 binary64))
(+.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 (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) (fma.f64 (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 (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 (-.f64 #s(literal 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 (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 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.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 (-.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 (-.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)))))
(/.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))))))
(fma.f64 (neg.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 #s(literal -1 binary64) (*.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))
(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 (pow.f64 (/.f64 (/.f64 #s(literal 4 binary64) lambda2) (-.f64 (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2)) #s(literal 4 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal 2 binary64))))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal 4 binary64) lambda2) (fma.f64 (/.f64 #s(literal 8 binary64) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal -8 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 lambda1 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2)))))
(*.f64 (/.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64)) #s(literal -2 binary64)) (neg.f64 lambda2))
(*.f64 (/.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 #s(literal 1/2 binary64) lambda2))
(*.f64 (/.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 4 binary64)) lambda2)
(*.f64 (/.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) lambda2)
(*.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda2))
(*.f64 (*.f64 #s(literal 1/4 binary64) lambda2) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64))) #s(literal -1 binary64)))
(*.f64 (*.f64 #s(literal 1/4 binary64) lambda2) (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)))
(*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (neg.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) lambda2)))
(*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
(*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) (*.f64 #s(literal 1/4 binary64) lambda2))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) lambda2) (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64))) #s(literal -1 binary64)))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) lambda2) (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal -1 binary64))
(/.f64 (neg.f64 (/.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (neg.f64 (/.f64 #s(literal 1 binary64) lambda2)))
(/.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) (/.f64 #s(literal 2 binary64) lambda2))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2)) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) lambda2))) (neg.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal 8 binary64) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal -8 binary64)) (*.f64 #s(literal 1/4 binary64) lambda2))) (neg.f64 (+.f64 (fma.f64 lambda1 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2)))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal -4 binary64) lambda2))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2)))) (neg.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal 1/8 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 #s(literal 1/2 binary64) lambda2))))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 (/.f64 #s(literal 2 binary64) lambda2))))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64))))) (neg.f64 (neg.f64 (/.f64 #s(literal -4 binary64) lambda2))))
(/.f64 (neg.f64 (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2)) #s(literal 4 binary64)) #s(literal 1 binary64))) (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal 2 binary64)) (/.f64 #s(literal 4 binary64) lambda2))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal 8 binary64) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal -8 binary64)) #s(literal 1 binary64))) (neg.f64 (*.f64 (+.f64 (fma.f64 lambda1 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2))) (/.f64 #s(literal 4 binary64) lambda2))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1) (/.f64 #s(literal 4 binary64) lambda2)) (*.f64 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 2 binary64)))) (neg.f64 (*.f64 (/.f64 #s(literal 4 binary64) lambda2) (/.f64 #s(literal 4 binary64) lambda2))))
(/.f64 (-.f64 (/.f64 (*.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1) (/.f64 #s(literal 2 binary64) lambda2)) (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 (*.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1)) #s(literal -2 binary64)) (/.f64 #s(literal -4 binary64) lambda2))
(/.f64 (-.f64 (/.f64 (*.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1) (/.f64 #s(literal 2 binary64) lambda2)) lambda2) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) lambda2))
(/.f64 (/.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2)) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) lambda2)) (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal 2 binary64)))
(/.f64 (*.f64 (fma.f64 (/.f64 #s(literal 8 binary64) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal -8 binary64)) (*.f64 #s(literal 1/4 binary64) lambda2)) (+.f64 (fma.f64 lambda1 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2))))
(/.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1 binary64)) (/.f64 #s(literal 4 binary64) lambda2))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2))) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) lambda2)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal 1/8 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 #s(literal 1/2 binary64) lambda2)))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64))) (neg.f64 (/.f64 #s(literal 2 binary64) lambda2)))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)))) (neg.f64 (/.f64 #s(literal -4 binary64) lambda2)))
(/.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2)) #s(literal 4 binary64))) (neg.f64 (*.f64 (/.f64 #s(literal 4 binary64) lambda2) (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (/.f64 #s(literal 8 binary64) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal -8 binary64))) (neg.f64 (*.f64 (/.f64 #s(literal 4 binary64) lambda2) (+.f64 (fma.f64 lambda1 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2))))))
(/.f64 (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2)) #s(literal 4 binary64)) #s(literal 1 binary64)) (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal 2 binary64)) (/.f64 #s(literal 4 binary64) lambda2)))
(/.f64 (*.f64 (fma.f64 (/.f64 #s(literal 8 binary64) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal -8 binary64)) #s(literal 1 binary64)) (*.f64 (+.f64 (fma.f64 lambda1 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2))) (/.f64 #s(literal 4 binary64) lambda2)))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1) (/.f64 #s(literal 4 binary64) lambda2)) (*.f64 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 2 binary64))) (*.f64 (/.f64 #s(literal 4 binary64) lambda2) (/.f64 #s(literal 4 binary64) lambda2)))
(/.f64 (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 2 binary64) lambda2))
(/.f64 (-.f64 (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2)) #s(literal 4 binary64)) (*.f64 (/.f64 #s(literal 4 binary64) lambda2) (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal 2 binary64))))
(/.f64 (fma.f64 (/.f64 #s(literal 8 binary64) (*.f64 (*.f64 lambda2 lambda2) lambda2)) (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal -8 binary64)) (*.f64 (/.f64 #s(literal 4 binary64) lambda2) (+.f64 (fma.f64 lambda1 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 4 binary64)) (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda1)) (*.f64 lambda2 lambda2)))))
(/.f64 (neg.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64))) (/.f64 #s(literal -4 binary64) lambda2))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) lambda2) (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 2 binary64) lambda2) (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) #s(literal 1/2 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))
(/.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) (/.f64 #s(literal 4 binary64) lambda2))
(neg.f64 (/.f64 (neg.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64))) (/.f64 #s(literal 4 binary64) lambda2)))
(neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) (/.f64 #s(literal -4 binary64) lambda2)))
(fma.f64 (/.f64 (*.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1) #s(literal 4 binary64)) lambda2 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 (/.f64 (/.f64 #s(literal 2 binary64) lambda2) #s(literal 2 binary64)) (/.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 (/.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) (/.f64 (/.f64 #s(literal 2 binary64) lambda2) #s(literal 2 binary64)) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 #s(literal 1 binary64) (*.f64 lambda1 #s(literal 1/2 binary64)) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 (*.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1) (*.f64 #s(literal 1/4 binary64) lambda2) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 (/.f64 #s(literal 2 binary64) lambda2) (/.f64 lambda1 (/.f64 #s(literal 4 binary64) lambda2)) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 lambda1 (/.f64 (/.f64 #s(literal 2 binary64) lambda2) (/.f64 #s(literal 4 binary64) lambda2)) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(-.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 #s(literal 1/2 binary64) lambda2))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) #s(literal -1 binary64)))
(+.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (cos.f64 phi2)))
(*.f64 (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)))
(*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (*.f64 (sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 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 (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(*.f64 (neg.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)))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(*.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)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(pow.f64 (*.f64 #s(literal 1/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 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2)))) (neg.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))
(/.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 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.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 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda2))) #s(literal -4 binary64))
(/.f64 (-.f64 lambda1 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 lambda1) (neg.f64 lambda2)) #s(literal -2 binary64))
(/.f64 (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 #s(literal -2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 (neg.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 (-.f64 lambda1 lambda2))))
(/.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 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2))) (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2)))
(/.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 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda2)))))
(/.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 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.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/2 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.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 #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 #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 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 lambda1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda2))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal -1 binary64))) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(exp.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(+.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 #s(literal 1/2 binary64) lambda2)))
(*.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 (*.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 (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 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(*.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 #s(literal -1 binary64) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (log.f64 (exp.f64 #s(literal -1 binary64))))
(*.f64 (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal -1 binary64))
(neg.f64 (log.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))))
(neg.f64 (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(-.f64 (log.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (log.f64 (+.f64 lambda2 lambda1)))
(-.f64 (log.f64 (*.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (log.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(-.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)))) (log.f64 (+.f64 lambda2 lambda1)))
(-.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)))) (log.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(-.f64 (log.f64 (-.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2)))) (log.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))
(-.f64 (log.f64 (-.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) #s(literal 1/8 binary64)))) (log.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) lambda2))))))
(-.f64 (log.f64 (-.f64 (*.f64 #s(literal 2 binary64) lambda1) (*.f64 #s(literal 2 binary64) lambda2))) (log.f64 #s(literal 4 binary64)))
(-.f64 (log.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2)))) (log.f64 #s(literal 2 binary64)))
(-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(-.f64 (log.f64 #s(literal 1/2 binary64)) (neg.f64 (log.f64 (-.f64 lambda1 lambda2))))
(-.f64 (log.f64 (neg.f64 (-.f64 lambda1 lambda2))) (log.f64 #s(literal -2 binary64)))
(-.f64 (log.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (log.f64 (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))))
(-.f64 (log.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (log.f64 (*.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))
(-.f64 #s(literal 0 binary64) (log.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))))
(-.f64 #s(literal 0 binary64) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(-.f64 (log.f64 (-.f64 lambda1 lambda2)) (log.f64 #s(literal 2 binary64)))
(+.f64 (log.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (log.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (log.f64 #s(literal -1/2 binary64)) (log.f64 (neg.f64 (-.f64 lambda1 lambda2))))
(+.f64 (log.f64 #s(literal 1/2 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (log.f64 #s(literal 1/2 binary64)) (log.f64 (-.f64 lambda1 lambda2)))
(+.f64 (log.f64 (neg.f64 (-.f64 lambda1 lambda2))) (log.f64 #s(literal -1/2 binary64)))
(+.f64 #s(literal 0 binary64) (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(+.f64 (log.f64 (-.f64 lambda1 lambda2)) (log.f64 #s(literal 1/2 binary64)))
(log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.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 (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)))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 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))
(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 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(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 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
(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 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 #s(literal 1/2 binary64) lambda2)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(*.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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))
(/.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 (*.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)))))
(/.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))))))
(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 (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 (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 (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 #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))))
(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))))
(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 (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 (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 (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 (+.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))
(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))
(/.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 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (fma.f64 (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)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 (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 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (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)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (fma.f64 (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)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (fma.f64 (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 (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 (-.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 (fma.f64 (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)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (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 (+.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (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)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (fma.f64 (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)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (fma.f64 (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 (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 (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 (-.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 (+.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)))))
(/.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) (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 #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))))))
(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 (-.f64 #s(literal 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 (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 phi1 phi2)) #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 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 (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 (+.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 (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 (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 (*.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 #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.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 #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 (/.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 #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 (fma.f64 (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)))) #s(literal 1/2 binary64))
(+.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 (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) (fma.f64 (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 (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 (-.f64 #s(literal 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 #s(literal 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))) (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 (/.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 (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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow.f64 (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 (*.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/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 (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 (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 (-.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)))))
(/.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))))))
(fma.f64 (neg.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 (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 binary64) (*.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) #s(literal 1/2 binary64))
(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 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) (*.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))))
(-.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)) (*.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 (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/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 (-.f64 #s(literal 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 (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)))
(*.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 (-.f64 #s(literal 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 #s(literal 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))) (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 (/.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 (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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(pow.f64 (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 (*.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/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 (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 (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 (-.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)))))
(/.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))))))
(fma.f64 (neg.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 (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 binary64) (*.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) #s(literal 1/2 binary64))
(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))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2))))
(*.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 (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)))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 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))
(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 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(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 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
(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 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 #s(literal 1/2 binary64) lambda2)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(neg.f64 (sin.f64 (/.f64 (neg.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64))) (/.f64 #s(literal 4 binary64) lambda2))))
(neg.f64 (sin.f64 (/.f64 (fma.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1 #s(literal -2 binary64)) (/.f64 #s(literal -4 binary64) lambda2))))
(fma.f64 (sin.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64))) (cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(sin.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
(-.f64 (*.f64 (sin.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
(+.f64 (*.f64 (sin.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64))) (cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 (cos.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(*.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 (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)))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 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))
(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 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(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 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
(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 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 #s(literal 1/2 binary64) lambda2)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))

eval1.9s (3.6%)

Memory
36.2MiB live, 1 674.0MiB allocated
Compiler

Compiled 425 930 to 20 334 computations (95.2% saved)

prune2.3s (4.6%)

Memory
-58.4MiB live, 3 059.4MiB allocated
Pruning

181 alts after pruning (181 fresh and 0 done)

PrunedKeptTotal
New5 2031585 361
Fresh592382
Picked505
Done000
Total5 2671815 448
Accuracy
79.2%
Counts
5 448 → 181
Alt Table
Click to see full alt table
StatusAccuracyProgram
58.4%
(*.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)))
56.0%
(*.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)))
56.4%
(*.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 (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
56.7%
(*.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)))
56.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)))
56.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 (-.f64 #s(literal 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)))
56.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 (-.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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
56.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) (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)))
56.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 (+.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)))
33.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) (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))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 1/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)))
56.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) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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)))
53.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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
30.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 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
56.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 (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)))))) (*.f64 R #s(literal 2 binary64)))
56.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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.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)))
42.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 (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)))
42.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 (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)))
56.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 (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)))
56.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 (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)))
57.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 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 #s(literal 2 binary64)))
55.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/4 binary64) (pow.f64 (fma.f64 (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)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (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)))
56.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 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 R #s(literal 2 binary64)))
55.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) (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)))
25.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) (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)))))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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) (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))))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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) (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)))
57.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) (+.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)))
33.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 (*.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)))
53.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 2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
56.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 (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)))
55.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 (-.f64 #s(literal 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 R #s(literal 2 binary64)))
55.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 #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 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
55.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 (/.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 R #s(literal 2 binary64)))
33.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 (/.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 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
56.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 #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)))
56.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) (-.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 R #s(literal 2 binary64)))
56.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 #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 R #s(literal 2 binary64)))
51.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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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)))
15.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
32.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
35.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) #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)))
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 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
55.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 (-.f64 #s(literal 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 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
46.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 (-.f64 (+.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))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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) #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.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) #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)))
56.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 #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.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 #s(approx (- (+ 1/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 (-.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)))
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 #s(approx (- (+ 1/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 (-.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)))
38.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) (fma.f64 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)) phi2 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
38.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) (fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
46.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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (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)))
40.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (cos.f64 phi2) (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)))
36.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) #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)))
38.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) #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)))
39.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) #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)))
40.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) #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)))
56.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)))
56.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)) (exp.f64 (log.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #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)))
40.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)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (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 #s(literal 1/2 binary64) (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)))
▶15.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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 (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)))
37.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 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)))) (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)))
43.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)))) (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)))
32.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 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.8%
(*.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)) (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
15.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)) (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
37.1%
(*.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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
37.2%
(*.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) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
56.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.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))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
59.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))))))))))
▶77.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
77.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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))))))))))
46.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
16.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(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)))))))))))
39.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
64.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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))))))))))
45.9%
(*.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
60.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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))))))))))
59.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))))))))))
48.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (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 (/.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
44.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 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
15.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 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(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)))))))))))
38.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 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
23.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 (pow.f64 (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (-.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)))))))
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 (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))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
36.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 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)))))))))))
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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
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) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 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)))))))))
58.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 #s(literal 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)))))))))
15.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
24.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 (*.f64 (*.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1) (/.f64 #s(literal 4 binary64) lambda2)) (*.f64 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 2 binary64))) (*.f64 (/.f64 #s(literal 4 binary64) lambda2) (/.f64 #s(literal 4 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.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 (*.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))))))))))
45.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)))) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))))))
25.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 (pow.f64 (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))))))))))
16.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 (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))))
53.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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
16.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 (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (-.f64 lambda1 lambda2)))))))))))))
10.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 #s(approx (* (log (/ 2 (- lambda1 lambda2))) -1) (-.f64 (/.f64 lambda1 (neg.f64 lambda2)) (log.f64 (/.f64 #s(literal -2 binary64) lambda2)))))))))))))
46.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
15.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 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
16.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 (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (-.f64 lambda1 lambda2))))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
16.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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (exp.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
16.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
46.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)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1)))) (*.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (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 (exp (* (log (/ 2 (- lambda1 lambda2))) -1)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
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 (+.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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
42.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 #s(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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
18.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 (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))))))))))
5.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 (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
45.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))))))))))
45.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 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
45.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) #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)))))))))
34.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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (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 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (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))))))))))
▶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)) (sin.f64 (/.f64 (-.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)))))))))
39.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
23.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/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))))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
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)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
45.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 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))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (cos.f64 phi2) (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)))))))))
45.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))))) (-.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))))))))
39.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) lambda2) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (neg.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)))))))
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)) (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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
14.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 (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (-.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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
41.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 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))))))))))
27.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
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 #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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
23.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)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) 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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
36.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)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) 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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
50.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)) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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)) #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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
39.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)) #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
52.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)) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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)) #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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
31.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 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
29.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)) #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
56.9%
(*.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.7%
(*.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 (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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(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)))))))))))
25.5%
(*.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 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
18.2%
(*.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.6%
(*.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))))))))))
50.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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))))))))))
44.1%
(*.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) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
42.6%
(*.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 phi2 #s(literal -1/8 binary64)) (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)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
45.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 phi1 #s(literal -1/8 binary64)) (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)))))) (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))))))))))
42.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 phi1 #s(literal -1/8 binary64)) (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
46.3%
(*.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 (-.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))))))))))
45.2%
(*.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))))))))))
42.1%
(*.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 #s(literal -1/2 binary64) phi2)) (*.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
35.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
44.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 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))))))))))
45.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 #s(literal -1/2 binary64) phi2)) #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))))))))))
34.9%
(*.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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
12.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 (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
38.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 (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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
45.0%
(*.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))))))))))
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 (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.2%
(*.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 #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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
25.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 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
34.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 (*.f64 lambda1 (cos.f64 phi1)) (*.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
41.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 (neg.f64 phi2) (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)))))) (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))))))))))
38.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)) (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) lambda1 (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))))))))))
45.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 (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.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))))))))))
29.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 #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.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
41.2%
(*.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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (neg.f64 phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
36.9%
(*.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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
Compiler

Compiled 28 240 to 14 198 computations (49.7% saved)

simplify159.0ms (0.3%)

Memory
29.0MiB live, 217.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 (fma.f64 #s(literal -1/2 binary64) (cos.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-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff384
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
cost-diff576
(/.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))
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) #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)))))))))
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))
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 lambda1 lambda2)))
cost-diff640
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
cost-diff12800
(exp.f64 (log.f64 (-.f64 lambda1 lambda2)))
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 lambda2 lambda1)) #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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
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-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-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
Rules
13 142×lower-fma.f32
13 134×lower-fma.f64
4 196×lower-*.f32
4 132×lower-*.f64
2 146×lower-+.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01422854
02542757
14202605
27392605
316932599
449002591
083592534
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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))
(sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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)))))
(pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) 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)
#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)
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 (*.f64 (*.f64 (cos.f64 phi1) (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
(*.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 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 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))))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 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 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 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 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 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 #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 lambda2 lambda1)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(cos.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda2 lambda1)
(*.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2))))))
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))
(cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2))))
(exp.f64 (log.f64 (-.f64 lambda1 lambda2)))
(log.f64 (-.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)))
#s(literal 2 binary64)
(*.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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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)))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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)))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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) #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 #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)))))
#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))))
(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 (cos.f64 phi2) (cos.f64 phi1))
(pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 lambda1 #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 2 binary64))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(*.f64 (-.f64 phi1 phi2) #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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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)))
(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 (fma.f64 #s(literal -1/2 binary64) (cos.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 #s(literal -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 lambda1 lambda2)
lambda1
lambda2
#s(literal 1/2 binary64)
(+.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)
(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 #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))))))
#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)))))
(pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (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))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
(*.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))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (*.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 phi1 #s(literal 1/2 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 (*.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 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (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 phi1 #s(literal 1/2 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 (*.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 phi1 #s(literal 1/2 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 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))
(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 phi1 #s(literal 1/2 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 (*.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 phi1 #s(literal 1/2 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 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1 #s(literal 1/2 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 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 phi1 #s(literal 1/2 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.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) 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 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #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 phi1 #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 #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))
#s(literal 1/2 binary64)
phi2
(neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (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))))
(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))
(sin.f64 (*.f64 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)
(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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 phi1 #s(literal 1/2 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 #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 #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 phi1 #s(literal 1/2 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 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 phi1 #s(literal 1/2 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.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 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 phi1 #s(literal 1/2 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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #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 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (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))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
(*.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 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 #s(approx (- (+ 1/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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))))))
(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 #s(approx (- (+ 1/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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #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 (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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 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 (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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))
(cos.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda2 lambda1)
(*.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (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)))) (*.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 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 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda2 lambda1))
(exp.f64 (log.f64 (-.f64 lambda1 lambda2)))
(-.f64 lambda1 lambda2)
(log.f64 (-.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)
#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 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 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 #s(literal 1/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))
(*.f64 #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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (atan2.f64 (sqrt.f64 (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 #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 lambda1 #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)) (sin.f64 (/.f64 (-.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 (atan2.f64 (sqrt.f64 (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 #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 lambda1 #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)) (sin.f64 (/.f64 (-.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)))))))
(atan2.f64 (sqrt.f64 (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 #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 lambda1 #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)) (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 (-.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (-.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 (*.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) #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) #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 lambda1 #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) #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 #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 lambda1 #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)
#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))))
#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 lambda1 #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))))
(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 (pow.f64 (sin.f64 (*.f64 lambda1 #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 (cos.f64 phi2) (cos.f64 phi1))
(pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 lambda1 #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 2 binary64))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(*.f64 (-.f64 phi1 phi2) #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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 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 (*.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 phi1 #s(literal 1/2 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 #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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 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 (*.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 phi1 #s(literal 1/2 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 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 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 (*.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 phi1 #s(literal 1/2 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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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 (fma.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))))
(*.f64 (fma.f64 #s(literal -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 phi1 phi2))) (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 lambda1 lambda2)
lambda1
lambda2
#s(literal 1/2 binary64)
(+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))
(+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))
(cos.f64 (+.f64 phi2 phi1))
(cos.f64 (+.f64 phi1 phi2))
(+.f64 phi2 phi1)
(+.f64 phi1 phi2)
(cos.f64 (-.f64 phi2 phi1))
(-.f64 phi2 phi1)
(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)))))))
(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 phi1 #s(literal 1/2 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 #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 #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 phi1 #s(literal 1/2 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 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 phi1 #s(literal 1/2 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.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 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 phi1 #s(literal 1/2 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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #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 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (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))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
(*.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 (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))

localize987.0ms (1.9%)

Memory
6.6MiB live, 1 468.2MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy7.271191317956978
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy7.3191982872451815
(cos.f64 (-.f64 phi2 phi1))
accuracy7.660261521364642
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy7.6826916070657045
(cos.f64 (-.f64 lambda1 lambda2))
accuracy7.271191317956978
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy7.271191317956978
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
accuracy7.660261521364642
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy12.034104927173617
#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))))
accuracy6.167409613842018
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2))))))
accuracy7.3191982872451815
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
accuracy7.6826916070657045
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
accuracy7.6826916070657045
(cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2))))
accuracy7.3191982872451815
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
accuracy7.6826916070657045
(cos.f64 (-.f64 lambda2 lambda1))
accuracy7.6826916070657045
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
accuracy12.01856646853239
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))))
accuracy0.203125
(pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
accuracy0.203125
(pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 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.3207105059035104
(-.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))))))
accuracy7.660261521364642
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Samples
599.0ms104×1valid
147.0ms135×0invalid
73.0ms17×2valid
Compiler

Compiled 2 690 to 119 computations (95.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 698.0ms
ival-cos: 182.0ms (26.1% of total)
ival-sqrt: 112.0ms (16% of total)
ival-sin: 92.0ms (13.2% of total)
ival-mult: 79.0ms (11.3% of total)
ival-log: 64.0ms (9.2% of total)
adjust: 36.0ms (5.2% of total)
ival-atan2: 32.0ms (4.6% of total)
ival-add: 27.0ms (3.9% of total)
ival-sub: 24.0ms (3.4% of total)
ival-pow2: 20.0ms (2.9% of total)
ival-exp: 19.0ms (2.7% of total)
ival-div: 7.0ms (1% of total)
ival-neg: 1.0ms (0.1% of total)
exact: 1.0ms (0.1% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

series179.0ms (0.3%)

Memory
25.5MiB live, 297.7MiB allocated
Counts
30 → 1 008
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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())
#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<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 (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())
#s(alt #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)))) (patch #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)))) #<representation binary64>) () ())
#s(alt (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/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 (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())
#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<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 (+ (* -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 (+ (* (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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 lambda2)) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda2)) (* 1/2 (* lambda1 (sin lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* -1/4 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* 1/2 (sin lambda2)) (* lambda1 (+ (* -1/4 (cos lambda2)) (* -1/12 (* lambda1 (sin lambda2)))))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (* -1 lambda2) (taylor 0 lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (taylor 0 lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (taylor 0 lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda2) (* lambda1 (sin lambda2))) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda2) (* lambda1 (- (* -1/2 (* lambda1 (cos lambda2))) (* -1 (sin lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda2) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))) (* -1 (sin lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (neg lambda2)) (taylor 0 lambda1) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 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 (+ (* -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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 (- lambda2 lambda1))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda1 (taylor inf lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 (- lambda2 lambda1)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda2 lambda1)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda2 lambda1)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda2 lambda1)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 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 (+ (* -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 (+ (* (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 (* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda1 (taylor -inf lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 (+ lambda2 (* -1 lambda1))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda2 (* -1 lambda1))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda2 (* -1 lambda1))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda2 (* -1 lambda1))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 (+ (* (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 (+ (* (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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 (* 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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (taylor 0 phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))) (taylor 0 phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* 1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))) (taylor 0 phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1))))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))))))) (taylor 0 phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1)))))) (+ (* 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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow (sin (* 1/2 phi1)) 2) (taylor 0 phi2) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt #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)))) (patch #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)))) #<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 (+ (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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (cos (neg phi1)) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi1)) (* -1 (* phi2 (sin (neg phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (neg phi1)))) (sin (neg phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (neg phi1))) (* 1/6 (* phi2 (sin (neg phi1)))))) (sin (neg phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 (* -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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor inf phi2) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor inf phi2) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor inf phi2) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor inf phi2) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (+ (* (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 (+ (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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (cos (- phi2 phi1)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 (* -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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (+ (* (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 (+ (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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (cos (neg (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (+ (* (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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 (* -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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (taylor 0 phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* phi1 (+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 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) (+ 1/2 (* -1/2 (cos (- lambda1 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2))))) (+ (* -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) (+ 1/2 (* -1/2 (cos (- lambda1 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow (sin (* 1/2 phi2)) 2) (taylor 0 phi1) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 phi2)) (taylor 0 phi1) (#s(alt (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (cos phi2) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (sin phi2))) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (* -1 (sin phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* -1/6 (* phi1 (sin phi2))))) (* -1 (sin phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 (* 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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor inf phi1) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor inf phi1) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor inf phi1) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor inf phi1) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (+ (* (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 (+ (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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (cos (- phi2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 (* 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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (patch (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (+ (* (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 (+ (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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 phi1 phi2) #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>) () ())) ())
#s(alt (cos (+ phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<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 (+ (* -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 (+ (* (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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 (neg lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* lambda2 (sin (neg lambda1)))) (* 1/2 (cos (neg lambda1)))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* -1/4 (* lambda2 (cos (neg lambda1))))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* lambda2 (+ (* -1/4 (cos (neg lambda1))) (* 1/12 (* lambda2 (sin (neg lambda1))))))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda1 (taylor 0 lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (taylor 0 lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (taylor 0 lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 #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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 (neg lambda1)) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda1)) (* -1 (* lambda2 (sin (neg lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda1)) (* lambda2 (- (* -1/2 (* lambda2 (cos (neg lambda1)))) (sin (neg lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda1)) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (neg lambda1))) (* 1/6 (* lambda2 (sin (neg lambda1)))))) (sin (neg lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos lambda1) (taylor 0 lambda2) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (sin lambda1))) (taylor 0 lambda2) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 #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)))) (patch #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)))) #<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 (+ (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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 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 (+ (* -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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 (- lambda2 lambda1))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (* -1 lambda2) (taylor inf lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 (- lambda2 lambda1)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda2 lambda1)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda2 lambda1)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda2 lambda1)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 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 (+ (* -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 (+ (* (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 (* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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 (neg (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (* -1 lambda2) (taylor -inf lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (exp.f64 (log.f64 (-.f64 lambda1 lambda2))) (patch (exp.f64 (log.f64 (-.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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 (neg (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda2 lambda1)) (patch (cos.f64 (-.f64 lambda2 lambda1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))) (patch (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 #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)))) (patch #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)))) #<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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<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) #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))))))))) (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) #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))))))))) #<representation binary64>) () ())) ())
Calls

15 calls:

TimeVariablePointExpression
16.0ms
lambda2
@-inf
((/ (- 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)))) (+ (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)))) (* R (* 2 (atan2 (sqrt (+ (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 (- 1 (+ (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 (- lambda2 lambda1)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (exp (log (- 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)))) (* 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))))))))) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (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) (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (- lambda2 lambda1)) (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos (exp (log (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (exp (log (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- phi1 phi2) 1/2)) (sin (/ (- phi1 phi2) 2)) (cos (- lambda1 lambda2)) (cos (- phi2 phi1)))
12.0ms
lambda1
@inf
((/ (- 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)))) (+ (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)))) (* R (* 2 (atan2 (sqrt (+ (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 (- 1 (+ (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 (- lambda2 lambda1)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (exp (log (- 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)))) (* 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))))))))) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (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) (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (- lambda2 lambda1)) (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos (exp (log (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (exp (log (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- phi1 phi2) 1/2)) (sin (/ (- phi1 phi2) 2)) (cos (- lambda1 lambda2)) (cos (- phi2 phi1)))
9.0ms
lambda1
@-inf
((/ (- 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)))) (+ (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)))) (* R (* 2 (atan2 (sqrt (+ (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 (- 1 (+ (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 (- lambda2 lambda1)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (exp (log (- 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)))) (* 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))))))))) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (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) (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (- lambda2 lambda1)) (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos (exp (log (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (exp (log (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- phi1 phi2) 1/2)) (sin (/ (- phi1 phi2) 2)) (cos (- lambda1 lambda2)) (cos (- phi2 phi1)))
9.0ms
phi2
@inf
((/ (- 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)))) (+ (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)))) (* R (* 2 (atan2 (sqrt (+ (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 (- 1 (+ (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 (- lambda2 lambda1)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (exp (log (- 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)))) (* 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))))))))) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (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) (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (- lambda2 lambda1)) (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos (exp (log (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (exp (log (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- phi1 phi2) 1/2)) (sin (/ (- phi1 phi2) 2)) (cos (- lambda1 lambda2)) (cos (- phi2 phi1)))
9.0ms
lambda2
@inf
((/ (- 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)))) (+ (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)))) (* R (* 2 (atan2 (sqrt (+ (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 (- 1 (+ (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 (- lambda2 lambda1)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (exp (log (- 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)))) (* 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))))))))) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (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) (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (- lambda2 lambda1)) (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos (exp (log (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (exp (log (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- phi1 phi2) 1/2)) (sin (/ (- phi1 phi2) 2)) (cos (- lambda1 lambda2)) (cos (- phi2 phi1)))

simplify254.0ms (0.5%)

Memory
-5.8MiB live, 420.9MiB allocated
Algorithm
1×egg-herbie
Rules
9 444×lower-fma.f64
9 444×lower-fma.f32
6 986×lower-+.f64
6 986×lower-+.f32
5 514×lower-*.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0104727729
1344327524
0812826167
Stop Event
1×iter limit
1×node limit
Counts
1 008 → 999
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 (+ (* -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)))
(+ (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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)
(- lambda1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(* 1/2 (cos lambda2))
(+ (* 1/2 (cos lambda2)) (* 1/2 (* lambda1 (sin lambda2))))
(+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* -1/4 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))
(+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* 1/2 (sin lambda2)) (* lambda1 (+ (* -1/4 (cos lambda2)) (* -1/12 (* lambda1 (sin 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 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)))
(* 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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (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 lambda2)
(+ (cos lambda2) (* lambda1 (sin lambda2)))
(+ (cos lambda2) (* lambda1 (- (* -1/2 (* lambda1 (cos lambda2))) (* -1 (sin lambda2)))))
(+ (cos lambda2) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))) (* -1 (sin 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))))
(+ (* (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 (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 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 (+ (* -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))
(+ (* (cos phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(- 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))))
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))
(* 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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (- lambda2 lambda1))
(cos (- lambda2 lambda1))
(cos (- lambda2 lambda1))
(cos (- lambda2 lambda1))
(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))))
(+ (* (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 (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(* 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 (+ (* -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))
(+ (* (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))
(* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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 (cos (+ lambda2 (* -1 lambda1))))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(* 1/2 (cos (+ 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))))))
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))
(* 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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (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 (+ (* (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 (+ (* (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 (+ lambda2 (* -1 lambda1)))
(cos (+ lambda2 (* -1 lambda1)))
(cos (+ lambda2 (* -1 lambda1)))
(cos (+ 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))))))
(+ (* (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 (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(+ (* (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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 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))))))
(* 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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* 1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1))))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1)))))) (+ (* 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 (+ (* (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)))
(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))
(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))))))
(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)))))
(+ (* (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)))
(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)))))))))
(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)))))))))
(cos (neg phi1))
(+ (cos (neg phi1)) (* -1 (* phi2 (sin (neg phi1)))))
(+ (cos (neg phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (neg phi1)))) (sin (neg phi1)))))
(+ (cos (neg phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (neg phi1))) (* 1/6 (* phi2 (sin (neg phi1)))))) (sin (neg phi1)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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))
(+ (* (cos phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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)))))))
(* -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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(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 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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))
(+ (* (cos phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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)))))))
(* -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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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)))))))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 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))
(sin (* 1/2 (+ 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))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(cos (neg (+ phi1 (* -1 phi2))))
(cos (neg (+ phi1 (* -1 phi2))))
(cos (neg (+ phi1 (* -1 phi2))))
(cos (neg (+ phi1 (* -1 phi2))))
(+ (* (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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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)
(- 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))))))
(* -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)))))))
(* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))
(+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))
(+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* phi1 (+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))
(+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 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) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2))))) (+ (* -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) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (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)))
(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))
(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))))))
(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)))))
(+ (* (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)))
(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)))))))))
(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)))))))))
(cos phi2)
(+ (cos phi2) (* phi1 (sin phi2)))
(+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (* -1 (sin phi2)))))
(+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* -1/6 (* phi1 (sin phi2))))) (* -1 (sin phi2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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))
(+ (* (cos phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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)))))))
(* 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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(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 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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))
(+ (* (cos phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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)))))))
(* 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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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)))))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(+ (* (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))
(sin (* -1/2 (+ 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))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(cos (+ phi2 (* -1 phi1)))
(cos (+ phi2 (* -1 phi1)))
(cos (+ phi2 (* -1 phi1)))
(cos (+ phi2 (* -1 phi1)))
(* 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 (+ (* -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)))
(+ (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 lambda2))
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(* 1/2 (cos (neg lambda1)))
(+ (* -1/2 (* lambda2 (sin (neg lambda1)))) (* 1/2 (cos (neg lambda1))))
(+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* -1/4 (* lambda2 (cos (neg lambda1)))))))
(+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* lambda2 (+ (* -1/4 (cos (neg lambda1))) (* 1/12 (* lambda2 (sin (neg 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)))
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)))
(* 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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (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 (- (* (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)))
(- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (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 (neg lambda1))
(+ (cos (neg lambda1)) (* -1 (* lambda2 (sin (neg lambda1)))))
(+ (cos (neg lambda1)) (* lambda2 (- (* -1/2 (* lambda2 (cos (neg lambda1)))) (sin (neg lambda1)))))
(+ (cos (neg lambda1)) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (neg lambda1))) (* 1/6 (* lambda2 (sin (neg lambda1)))))) (sin (neg 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)))
(+ (* (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)))))
(* -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 (+ (* -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))
(+ (* (cos phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(- 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 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))
(* 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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (- lambda2 lambda1))
(cos (- lambda2 lambda1))
(cos (- lambda2 lambda1))
(cos (- lambda2 lambda1))
(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))))
(+ (* (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 (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 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)))))
(+ (* (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))
(+ (* (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))
(* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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 (cos (neg (+ lambda1 (* -1 lambda2)))))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(* 1/2 (cos (neg (+ 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 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))
(* 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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (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 (+ (* (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 (+ (* (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 (neg (+ lambda1 (* -1 lambda2))))
(cos (neg (+ lambda1 (* -1 lambda2))))
(cos (neg (+ lambda1 (* -1 lambda2))))
(cos (neg (+ 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)))))
(+ (* (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 (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (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)))))))
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 (+ (* -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))))
(+ (* (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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 lambda2))
(*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))
(+ (* 1/2 (cos lambda2)) (* 1/2 (* lambda1 (sin lambda2))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))
(+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* -1/4 (* lambda1 (cos lambda2))) (* 1/2 (sin 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 (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* 1/2 (sin lambda2)) (* lambda1 (+ (* -1/4 (cos lambda2)) (* -1/12 (* lambda1 (sin lambda2))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (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)))
(- 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 #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))))
(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 (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 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 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/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 (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 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 (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 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal -1/2 binary64))) lambda1 (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 (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 (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 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal -1/2 binary64))) lambda1 (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)))
(+ (* (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))))
(* 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 #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)))) (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 #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)))) (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 #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)))) (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 #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)))) (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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (neg.f64 (sin.f64 lambda2)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (sin.f64 lambda2))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 lambda2)))) lambda1))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/24 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (neg.f64 (sin.f64 lambda2))) (*.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda1 (*.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (sin.f64 lambda2))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (neg.f64 (sin.f64 lambda2))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (sin.f64 lambda2))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 lambda2)))) lambda1 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/24 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (neg.f64 (sin.f64 lambda2))) (*.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda1 (*.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (sin.f64 lambda2))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) 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 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (-.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 (* 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(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 (-.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 (* 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(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 (-.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/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 (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 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 (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 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal -1/2 binary64))) lambda1 (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 (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 (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 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal -1/2 binary64))) lambda1 (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)))
(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 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (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 lambda2)
(cos.f64 lambda2)
(+ (cos lambda2) (* lambda1 (sin lambda2)))
(fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))
(+ (cos lambda2) (* lambda1 (- (* -1/2 (* lambda1 (cos lambda2))) (* -1 (sin lambda2)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(+ (cos lambda2) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))) (* -1 (sin lambda2)))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 (sin.f64 lambda2) lambda1) (*.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 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (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))))
(+.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))))
(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 (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 (fma.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))))
(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 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64) (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 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 (+ (* -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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #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)
(- (+ 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #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)))
(* 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 #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)))) (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 #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)))) (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 #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)))) (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 #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)))) (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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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/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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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))
(cos (- lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda2 lambda1))
(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))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 (- 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/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 (+ (* -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)))
(+ (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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)))))))
(*.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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (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)))))))
(*.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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (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)))))))
(*.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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (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)))))))
(*.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 (+ lambda2 (* -1 lambda1))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #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)
(- (+ 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 lambda1 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 (* -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 lambda1 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 (* -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 lambda1 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 (* -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 lambda1 lambda2)) #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)))
(* 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 #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)))) (sqrt.f64 (-.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)))))))
(* 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 #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)))) (sqrt.f64 (-.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)))))))
(* 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 #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)))) (sqrt.f64 (-.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)))))))
(* 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 #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)))) (sqrt.f64 (-.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/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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/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 lambda1 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 (* -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 lambda1 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 (* -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 lambda1 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 (* -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 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda2 (* -1 lambda1)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda2 (* -1 lambda1)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda2 (* -1 lambda1)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda2 (* -1 lambda1)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(- 1/2 (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda1 lambda2))
(+ (* (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 (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 (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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.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 (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 (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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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)
(- (+ 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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))))))
(-.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 lambda1 lambda2)) #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 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 1/2 binary64))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (fma.f64 (cos.f64 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)) (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 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) phi2) (sin.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 1/2 binary64)))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (fma.f64 (cos.f64 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)) (cos.f64 phi1)))
(* 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 (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 (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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.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))))
(* 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 #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)))) (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 #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)))) (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 #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)))) (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 #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)))) (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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1)))
(+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (*.f64 (*.f64 phi2 #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* 1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1))))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi1) #s(literal -1 binary64)) (*.f64 (*.f64 phi2 #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 0 binary64) (sin.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) phi2 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 phi1)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))))) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.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 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi1) #s(literal -1 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 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1)))))) (+ (* 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 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi1) #s(literal -1 binary64)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.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))) phi2 (fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (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)))
(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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (-.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 (- (* 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 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (-.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)))))
(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 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2)) (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 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.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 (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 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2)) (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 (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.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 (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 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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))))))
(-.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 lambda1 lambda2)) #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 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 1/2 binary64))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (fma.f64 (cos.f64 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)) (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 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) phi2) (sin.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 1/2 binary64)))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (fma.f64 (cos.f64 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)) (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 (cos.f64 phi1) #s(literal -1/2 binary64))) phi2 (sin.f64 phi1)) phi2 (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 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 (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 (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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.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))))
(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))))
(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))))
(cos (neg phi1))
(cos.f64 phi1)
(+ (cos (neg phi1)) (* -1 (* phi2 (sin (neg phi1)))))
(fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))
(+ (cos (neg phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (neg phi1)))) (sin (neg phi1)))))
(fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)) phi2 (cos.f64 phi1))
(+ (cos (neg phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (neg phi1))) (* 1/6 (* phi2 (sin (neg phi1)))))) (sin (neg phi1)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) phi2) (neg.f64 (sin.f64 phi1)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) phi2 (sin.f64 phi1)) phi2 (cos.f64 phi1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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)
(- (+ 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #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)))
(* 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 #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)))) (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 #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)))) (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 #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)))) (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 #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)))) (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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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))))
(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))
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(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))
(+ (* (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 (- 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)))
(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)))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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)))
(- (+ 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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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)))
(* 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 #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)))) (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 #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)))) (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 #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)))) (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 #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)))) (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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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))))
(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))
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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))
(+ (* (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)))
(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)))
(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)))
(cos (neg (+ phi1 (* -1 phi2))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ phi1 (* -1 phi2))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ phi1 (* -1 phi2))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ phi1 (* -1 phi2))))
(cos.f64 (-.f64 phi2 phi1))
(+ (* (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 (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 phi2 #s(literal 1/2 binary64))) (sin.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) (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 (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 phi2 #s(literal 1/2 binary64))) (sin.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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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)
(- (+ 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 lambda1 lambda2)) #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 #s(literal -1/4 binary64) (cos.f64 phi2) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64))) phi1 (neg.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))) phi1 (fma.f64 (cos.f64 phi2) #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)) (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 #s(literal -1/4 binary64) (cos.f64 phi2) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64)))) phi1 (neg.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))) phi1 (fma.f64 (cos.f64 phi2) #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)) (cos.f64 phi2)))
(* -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 (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 phi2 #s(literal -1/2 binary64))) (sin.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 (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 #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)))) (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 #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)))) (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 #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)))) (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 #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)))) (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)))))))
(* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))
(*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))
(+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)) (cos.f64 phi2)))
(+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (*.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 (cos.f64 phi2) phi1 #s(literal 0 binary64)))) phi1 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* phi1 (+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (*.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 0 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) phi1 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 0 binary64))) phi1 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (*.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) phi1 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 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) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 0 binary64) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2))))) (+ (* -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) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 0 binary64) (*.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 (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 (fma.f64 (*.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) phi1 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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)))
(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 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (-.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 (- (* 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)))
(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 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (-.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)))))
(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 (*.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 (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)))
(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 (*.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 (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)))
(- (+ 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 lambda1 lambda2)) #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 #s(literal -1/4 binary64) (cos.f64 phi2) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64))) phi1 (neg.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))) phi1 (fma.f64 (cos.f64 phi2) #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)) (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 #s(literal -1/4 binary64) (cos.f64 phi2) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64)))) phi1 (neg.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))) phi1 (fma.f64 (cos.f64 phi2) #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)) (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 (cos.f64 phi2) #s(literal -1/2 binary64))) phi1 (sin.f64 phi2)) phi1 (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 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 (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 phi2 #s(literal -1/2 binary64))) (sin.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 (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))))
(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))))
(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))))
(cos phi2)
(cos.f64 phi2)
(+ (cos phi2) (* phi1 (sin phi2)))
(fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))
(+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (* -1 (sin 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 (- (* phi1 (+ (* -1/2 (cos phi2)) (* -1/6 (* phi1 (sin phi2))))) (* -1 (sin phi2)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 phi2) phi1) #s(literal -1/6 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) phi1 (sin.f64 phi2)) phi1 (cos.f64 phi2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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)
(- (+ 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #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)))
(* 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 #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)))) (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 #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)))) (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 #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)))) (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 #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)))) (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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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))))
(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))
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(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))
(+ (* (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 (- 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)))
(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)))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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)
(- (+ 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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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)))
(* 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 #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)))) (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 phi2 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 (+ 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 #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)))) (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 phi2 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 (+ 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 #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)))) (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 phi2 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 (+ 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 #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)))) (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 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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))))
(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))
(pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #s(literal -1/2 binary64) #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))
(+ (* (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)))
(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)))
(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)))
(cos (+ phi2 (* -1 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos (+ phi2 (* -1 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos (+ phi2 (* -1 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos (+ phi2 (* -1 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(* 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 (+ (* -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))))
(+ (* (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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (neg lambda1)))
(*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))
(+ (* -1/2 (* lambda2 (sin (neg lambda1)))) (* 1/2 (cos (neg lambda1))))
(fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda1))))
(+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* -1/4 (* lambda2 (cos (neg lambda1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (cos.f64 lambda1) (neg.f64 (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64)))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))
(+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* lambda2 (+ (* -1/4 (cos (neg lambda1))) (* 1/12 (* lambda2 (sin (neg lambda1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda2) (neg.f64 (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64))) lambda2 (neg.f64 (*.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 (*.f64 (sin.f64 lambda1) lambda2) #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #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 #s(literal 1/4 binary64) lambda2) (cos.f64 lambda1) (*.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 #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 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/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 phi2 phi1)) #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 phi2 phi1))) #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 (*.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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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))))
(* 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 #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)))) (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 #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)))) (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 #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)))) (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 #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)))) (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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (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/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (*.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda2) (*.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda2 (*.f64 (*.f64 #s(literal 1/2 binary64) (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/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal 1/24 binary64) lambda2) (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda2 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda2 (*.f64 (*.f64 #s(literal 1/2 binary64) (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/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda2) (*.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda2 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal 1/24 binary64) lambda2) (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda2 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(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 (-.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 (- (* 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(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 (-.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/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 (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 phi2 phi1))) #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 (*.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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (*.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 (neg lambda1))
(cos.f64 lambda1)
(+ (cos (neg lambda1)) (* -1 (* lambda2 (sin (neg lambda1)))))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(+ (cos (neg lambda1)) (* lambda2 (- (* -1/2 (* lambda2 (cos (neg lambda1)))) (sin (neg lambda1)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(+ (cos (neg lambda1)) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (neg lambda1))) (* 1/6 (* lambda2 (sin (neg lambda1)))))) (sin (neg lambda1)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) lambda2) (neg.f64 (sin.f64 lambda1)) (*.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 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1)))
(fma.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #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 #s(literal 1/4 binary64) lambda2) (cos.f64 lambda1) (*.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 #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 (fma.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))))
(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 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 (+ (* -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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #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/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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #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)))
(* 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 #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)))) (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 #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)))) (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 #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)))) (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 #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)))) (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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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/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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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))
(cos (- lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda2 lambda1))
(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))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 (- 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/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 (+ (* -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)))
(+ (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (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 (- 1 (+ (* (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)))))))
(*.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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (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)))))))
(*.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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (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)))))))
(*.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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (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)))))))
(*.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 (neg (+ lambda1 (* -1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #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/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 lambda1 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 (+ 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 lambda1 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 (+ 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 lambda1 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 (+ 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 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 #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)))) (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 #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)))) (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 #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)))) (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 #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)))) (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)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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/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 lambda1 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 (+ 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 lambda1 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 (+ 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 lambda1 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 (+ 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 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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))
(cos (neg (+ lambda1 (* -1 lambda2))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda1 (* -1 lambda2))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ lambda1 (* -1 lambda2))))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (neg (+ 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))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.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)))
(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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 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 (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 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 #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)))) (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 #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)))) (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 #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)))) (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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 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 #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)))) (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 #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)))) (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 #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)))) (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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 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 #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)))) (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 #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)))) (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 #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)))) (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)))))))

rewrite295.0ms (0.6%)

Memory
34.2MiB live, 375.3MiB allocated
Rules
3 904×lower-*.f32
3 850×lower-*.f64
3 670×lower-fma.f32
3 664×lower-fma.f64
1 754×lower-pow.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0126659
0220647
1715446
25174444
08139431
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
30 → 1 205
Calls
Call 1
Inputs
(/.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 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #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 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 lambda1 lambda2))))))
(exp.f64 (log.f64 (-.f64 lambda1 lambda2)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (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 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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)))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(-.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))))))
(pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 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))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2))))))
#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))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos.f64 (-.f64 phi2 phi1))
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 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) lambda1 (*.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 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda1) (fma.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.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 #s(literal -1 binary64) (neg.f64 (/.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 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 (neg.f64 lambda2) #s(literal 1/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 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(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) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(-.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.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 (neg.f64 lambda2) #s(literal 1/2 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) (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (*.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))) #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 #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #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 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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (neg.f64 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #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 (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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (*.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))) #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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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)) (*.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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (*.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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.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))))
(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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 2 binary64)) (*.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))))
(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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (*.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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (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) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (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 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 phi1 phi2))) (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) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 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 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.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)) (*.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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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))))
(fma.f64 #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 phi2) (cos.f64 phi1))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 #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 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.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))) #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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 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 (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 binary64) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1 binary64) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 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 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (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 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (*.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))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.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))) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (*.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (*.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))) #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 #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #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 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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (neg.f64 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #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 (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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (*.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))) #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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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)) (*.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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (*.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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.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))))
(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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 2 binary64)) (*.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))))
(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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (*.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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (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) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (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 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 phi1 phi2))) (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) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 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 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.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)) (*.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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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))))
(fma.f64 #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 phi2) (cos.f64 phi1))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 #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 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.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))) #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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 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 (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 binary64) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1 binary64) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 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 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (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 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (*.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))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.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))) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (*.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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)
(exp.f64 (log.f64 (-.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 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 (+.f64 phi1 phi2) (-.f64 phi2 phi1))) (-.f64 phi2 phi1))
(*.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 (-.f64 phi1 phi2) (*.f64 phi2 phi2)))
(*.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 (*.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 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 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 (*.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 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 #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 (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))) #s(literal 0 binary64))
(fma.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 0 binary64))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 0 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (neg.f64 (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 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 0 binary64))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) #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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64))))
(*.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 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) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 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 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 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 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 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) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 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 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (*.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)
(exp.f64 (log.f64 (-.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 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.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))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.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)) (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.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))) (fma.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)) (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 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.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))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.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)))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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 (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.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))) #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 (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))) #s(literal 2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.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)))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (pow.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.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))) (fma.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)) (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.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))) #s(literal 2 binary64))) (fma.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)) (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (fma.f64 (*.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))) (fma.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)) (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 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))))
(fma.f64 (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (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 (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 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 (neg.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/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 #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 phi1 phi2))))) #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 phi1 phi2))))) #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 (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 #s(literal -1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (neg.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)) (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)) (-.f64 (*.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)) (-.f64 (*.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)) (-.f64 (*.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 (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 (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 (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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.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)))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (*.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 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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) (cos.f64 (-.f64 phi2 phi1)) (-.f64 #s(literal 1/2 binary64) (*.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)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (+.f64 #s(literal 1/2 binary64) (*.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)))))
(-.f64 (-.f64 #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 phi2) (cos.f64 phi1)))) (-.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 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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)))) (/.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (*.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))) (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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)))) #s(literal 1/2 binary64))
(+.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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 (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 (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))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.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)))))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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 (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 (neg.f64 (-.f64 phi1 phi2)) #s(literal -1/2 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 #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 (*.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))
(/.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)))
(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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.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))) #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 (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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (*.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))) #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 #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #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 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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (neg.f64 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #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 (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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (*.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))) #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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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)) (*.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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (*.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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.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))))
(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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 2 binary64)) (*.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))))
(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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (*.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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (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) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (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 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 phi1 phi2))) (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) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 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 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.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)) (*.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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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))))
(fma.f64 #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 phi2) (cos.f64 phi1))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 #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 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.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))) #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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 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 (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 binary64) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1 binary64) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 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 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (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 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (*.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))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.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))) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (*.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (-.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 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (-.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 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (-.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 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)) R)
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (-.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 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (-.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 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)))
(*.f64 #s(literal 2 binary64) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (-.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 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) R))
(*.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))))
(*.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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(*.f64 #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 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 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(*.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(pow.f64 (/.f64 (/.f64 #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 phi2) (cos.f64 phi1)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 #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 phi2) (cos.f64 phi1)))) #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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(/.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)))
(/.f64 (*.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 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 lambda2 lambda1))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)))
(/.f64 (neg.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 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 lambda2 lambda1))))) #s(literal 1/4 binary64)))) (*.f64 #s(literal 2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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/4 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.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 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)))) #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #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 phi2) (cos.f64 phi1))))))
(/.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #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 phi2) (cos.f64 phi1)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #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 phi2) (cos.f64 phi1)))))
(neg.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(exp.f64 (*.f64 (log.f64 (/.f64 #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 phi2) (cos.f64 phi1))))) #s(literal -1 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)) (*.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 (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (*.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))) #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 #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #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 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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (neg.f64 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #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 (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 (+.f64 (pow.f64 (*.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))) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.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 (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 (*.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))) #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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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)) (*.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 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (*.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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.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))))
(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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 2 binary64)) (*.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))))
(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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (*.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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))) (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) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (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 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 phi1 phi2))) (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) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 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 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.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 (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.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)) (*.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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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))))
(fma.f64 #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 phi2) (cos.f64 phi1))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 #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 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.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))) #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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 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 (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 binary64) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1 binary64) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 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 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (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 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (*.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))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.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))) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.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 (*.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 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (*.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 (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 (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 (*.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 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (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 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(+.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 (*.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 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.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))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.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)) (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.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))) (fma.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)) (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 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.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 (*.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))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.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)))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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 (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.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))) #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 (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))) #s(literal 2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.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)))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (pow.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.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))) (fma.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)) (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.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))) #s(literal 2 binary64))) (fma.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)) (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (fma.f64 (*.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))) (fma.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)) (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 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))))
(fma.f64 (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (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 (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 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 (neg.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/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 #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 phi1 phi2))))) #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 phi1 phi2))))) #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 (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 #s(literal -1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (neg.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)) (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)) (-.f64 (*.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)) (-.f64 (*.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)) (-.f64 (*.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 (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 (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 (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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.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)))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (*.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 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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) (cos.f64 (-.f64 phi2 phi1)) (-.f64 #s(literal 1/2 binary64) (*.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)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (+.f64 #s(literal 1/2 binary64) (*.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)))))
(-.f64 (-.f64 #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 phi2) (cos.f64 phi1)))) (-.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 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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)))) (/.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (*.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))) (fma.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)) (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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)))) #s(literal 1/2 binary64))
(+.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (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 (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 (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))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.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)))))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (*.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 (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 (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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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)))))))) #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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (-.f64 phi1 phi2) #s(literal 1/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 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.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 (-.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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))))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 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) (fma.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) (cos.f64 (-.f64 phi2 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)) (-.f64 #s(literal 1/2 binary64) (*.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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)))))))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 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 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 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 phi2 #s(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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (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 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 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 phi2 #s(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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))))
(/.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 (*.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (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))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/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 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/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 (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 (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)) (*.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))))) (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/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)) (*.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 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 phi2 #s(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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #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 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #s(literal 1/2 binary64)))) (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 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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))))
(*.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 (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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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)))))))) #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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (-.f64 phi1 phi2) #s(literal 1/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 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.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 (-.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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))))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 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) (fma.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) (cos.f64 (-.f64 phi2 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)) (-.f64 #s(literal 1/2 binary64) (*.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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)))))))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 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 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 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 phi2 #s(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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (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 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 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 phi2 #s(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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))))
(/.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 (*.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (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))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/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 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/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 (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 (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)) (*.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))))) (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/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)) (*.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 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 phi2 #s(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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))) #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 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #s(literal 1/2 binary64)))) (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 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 lambda2 lambda1)) #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 (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #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 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(-.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 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) (neg.f64 (sin.f64 lambda1))))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.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 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))))
(+.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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #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 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(-.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 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) (neg.f64 (sin.f64 lambda1))))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.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 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))))
(+.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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 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 (-.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 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64))) (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)) (-.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))) (+.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (*.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 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2)))) (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2)))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2)))) (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.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 (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 (-.f64 #s(literal 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 #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 phi1 phi2))))) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 (*.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)) (-.f64 (*.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 phi1 phi2))) #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)))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (+.f64 phi1 phi2) (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi1 phi2) 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 (*.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))))
(-.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))))
(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 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2)))) (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2)))) (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2))))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2)))) (*.f64 (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.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 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 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 (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #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 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(-.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 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) (neg.f64 (sin.f64 lambda1))))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.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 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))))
(+.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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) #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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64))))
(*.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 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) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 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 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 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 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 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) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 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 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))
(*.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (-.f64 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(*.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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)))))))) #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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #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 (-.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 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)))))))
(*.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/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))
(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 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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))))))))) #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 (/.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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)))) #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 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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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))))))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 (*.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))) (neg.f64 (cos.f64 (*.f64 phi1 #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)))) (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 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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)))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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 (-.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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.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 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #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 #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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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)))))
(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 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 (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 #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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (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 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))) (neg.f64 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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 (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)))))
(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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 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 (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 (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)))))
(+.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))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(*.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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)))))))) #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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #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 (-.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 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)))))))
(*.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/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))
(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 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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))))))))) #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 (/.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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)))) #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 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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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))))))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(/.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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 (*.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))) (neg.f64 (cos.f64 (*.f64 phi1 #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)))) (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 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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)))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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 (-.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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.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 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #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 #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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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)))))
(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 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 (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 #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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (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 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))) (neg.f64 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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 (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)))))
(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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 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 (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 (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)))))
(+.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))) (neg.f64 (cos.f64 (*.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 (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #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 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(-.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 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda2) (neg.f64 (sin.f64 lambda1))))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.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 lambda2 lambda1))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1)))))))
(+.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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 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 (-.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 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64))) (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)) (-.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))) (+.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64)) (*.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 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2)))) (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2)))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2)))) (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.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 (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 (-.f64 #s(literal 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 #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 phi1 phi2))))) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 (*.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)) (-.f64 (*.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 phi1 phi2))) #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)))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (+.f64 phi1 phi2) (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi1 phi2) 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 (*.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))))
(-.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))))
(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 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2)))) (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2)))) (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 (+.f64 phi1 phi2) (*.f64 phi2 phi2))))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2)))) (*.f64 (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.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 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))

eval1.0s (2%)

Memory
36.5MiB live, 1 428.1MiB allocated
Compiler

Compiled 296 501 to 13 575 computations (95.4% saved)

prune1.6s (3.2%)

Memory
21.9MiB live, 2 625.5MiB allocated
Pruning

246 alts after pruning (246 fresh and 0 done)

PrunedKeptTotal
New3 5811493 730
Fresh7997176
Picked505
Done000
Total3 6652463 911
Accuracy
79.8%
Counts
3 911 → 246
Alt Table
Click to see full alt table
StatusAccuracyProgram
44.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
46.5%
(*.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.2%
(*.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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.1%
(*.f64 (atan2.f64 (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 lambda2 lambda1))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
56.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 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.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
56.1%
(*.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 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) (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 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.1%
(*.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 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.8%
(*.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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
40.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 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
56.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 (-.f64 #s(literal 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)))
56.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 (-.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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
56.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) (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)))
44.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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
56.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 (+.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)))
45.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) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
28.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) (fma.f64 (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (*.f64 phi1 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.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) (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))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 1/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)))
45.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) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 lambda2 lambda1)) #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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64))) (cos.f64 (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #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 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) #s(literal 1 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 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)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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)))
28.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 (*.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
53.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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
17.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 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 (-.f64 phi1 phi2) (*.f64 phi2 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
56.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 (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)))))) (*.f64 R #s(literal 2 binary64)))
42.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 (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)))
42.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 (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)))
56.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 (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)))
56.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 (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)))
55.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/4 binary64) (pow.f64 (fma.f64 (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)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (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)))
56.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 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 R #s(literal 2 binary64)))
55.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) (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)))
33.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) (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))))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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) (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)))
57.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) (+.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)))
33.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 (*.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)))
53.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 2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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 #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 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
55.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 (/.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 R #s(literal 2 binary64)))
56.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 #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)))
56.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 #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 R #s(literal 2 binary64)))
51.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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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)))
15.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
32.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
35.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) #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)))
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 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
46.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 (-.f64 (+.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))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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) #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.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) #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)))
56.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 #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)))
44.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)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.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 #s(approx (- (+ 1/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)))
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 #s(approx (- (+ 1/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 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
38.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 (+.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 lambda1 lambda2)) #s(literal -1/2 binary64) #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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
44.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 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 lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
44.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 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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))))) (*.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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))))))) (*.f64 R #s(literal 2 binary64)))
44.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos 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 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
20.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos 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 (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 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 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos 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 (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.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 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos 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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) #s(literal 1/2 binary64))))))))) (*.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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/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 (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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
23.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 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 (- lambda2 lambda1)) 1/2))) (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))))))))) (*.f64 R #s(literal 2 binary64)))
33.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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
36.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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
27.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 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))))) (*.f64 R #s(literal 2 binary64)))
42.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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
46.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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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 #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
27.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) #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))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
40.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)) phi2 (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
40.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (cos.f64 phi2) (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)))
36.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) #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)))
24.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
38.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
39.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) #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)))
27.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
40.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) #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)))
41.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
56.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)))
56.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)) (exp.f64 (log.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #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)))
16.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.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 (sin.f64 phi2) (sin.f64 phi1) (*.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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
16.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
15.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
16.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 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 R #s(literal 2 binary64)))
15.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
12.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.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)))
15.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/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)))
15.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/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 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
13.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
12.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
31.2%
(*.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
28.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 (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.2%
(*.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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
56.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
44.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (-.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 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
25.0%
(*.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
32.1%
(*.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
▶35.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
40.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (exp (log (- 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)))
43.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (exp (log (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.8%
(*.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)) (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
15.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)) (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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
63.6%
(*.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 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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 2 binary64)) (*.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))))) (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))))))))))
71.0%
(*.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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.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))))) (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))))))))))
37.1%
(*.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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
44.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 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) #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)))))))))
37.2%
(*.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) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
57.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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) #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)))))))))
63.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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))))) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.4%
(*.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (+.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 (/.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)))))))))
59.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
71.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.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)))))))))
60.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
69.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
65.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
57.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
49.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))) #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))))))))))))
62.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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))))))))))
69.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (*.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/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 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 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))))))))))
39.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 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)))) (*.f64 (*.f64 (*.f64 (cos.f64 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 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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(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))))))))))
46.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (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))))))))))
46.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 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)))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 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)))))))))
57.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 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)))))))))
59.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 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)))))))))
47.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 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 (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 #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))))))))))
40.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 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))))) (-.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)))))))))
51.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 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))))) (-.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)))))))))
19.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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)))))))) (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))))))))))
▶77.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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))))))))))
46.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶39.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
52.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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))) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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))))))) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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))))))))))
63.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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)))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.5%
(*.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 phi1 phi2))) (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 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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) #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)))))))))
46.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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 phi2 #s(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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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)))))))))
60.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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))))))))))
62.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (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))))) #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))))))))))
58.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #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))))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 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)))))))
56.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (fma.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 #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 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
▶57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 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))))))))))
34.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 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)))))))))))
53.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 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)))))))))))
48.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (/.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (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))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 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))))))))))
43.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 #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))))))))))
43.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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) #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)))))))))
44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) #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)))))))))
43.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) #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)))))))))
48.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) #s(approx (cos (- phi2 phi1)) (cos.f64 phi2)))) #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))))))))))
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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) #s(approx (cos (- phi2 phi1)) (cos.f64 phi1)))) #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))))))))))
38.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 (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)) (+.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (/.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
45.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 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (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 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)))))))))
23.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 (pow.f64 (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (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))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.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))))) (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)))) (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)) #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)))))))))
15.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
24.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 (*.f64 (*.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1) (/.f64 #s(literal 4 binary64) lambda2)) (*.f64 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 2 binary64))) (*.f64 (/.f64 #s(literal 4 binary64) lambda2) (/.f64 #s(literal 4 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.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 (*.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))))))))))
45.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)))) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))))))
25.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 (pow.f64 (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))))))))))
16.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 (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))))
53.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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
16.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 (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (-.f64 lambda1 lambda2)))))))))))))
46.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
15.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 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
16.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
46.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)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1)))) (*.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (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 (exp (* (log (/ 2 (- lambda1 lambda2))) -1)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
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 (+.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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
18.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 (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))))))))))
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)) (sin.f64 (/.f64 (-.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))))))
▶37.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 (-.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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
39.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
23.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/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))))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
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)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
39.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) lambda2) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (neg.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)))))))
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)) (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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/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)))))))))
27.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/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)))))))))
48.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)) #s(approx (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (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))))))))))
50.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)) #s(approx (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1)))))) (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))))))))))
23.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)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) 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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
36.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)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) 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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
39.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)) #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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
15.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)) #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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
31.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 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
55.2%
(*.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.7%
(*.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 (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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(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)))))))))))
16.2%
(*.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
18.2%
(*.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.6%
(*.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))))))))))
15.9%
(*.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) #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)))))))))
40.5%
(*.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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) #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)))))))))
42.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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) #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)))))))))
42.6%
(*.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 phi2 #s(literal -1/8 binary64)) (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)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
45.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 phi1 #s(literal -1/8 binary64)) (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)))))) (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))))))))))
42.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 phi1 #s(literal -1/8 binary64)) (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
44.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (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))))) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #s(approx (sin (/ (- phi1 phi2) 2)) (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))))) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
37.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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)))))))))
46.3%
(*.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 (-.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))))))))))
42.1%
(*.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 #s(literal -1/2 binary64) phi2)) (*.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
63.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
35.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
55.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #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))))) (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))))))))))
51.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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)))))) (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))))))))))
43.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (sin.f64 lambda2))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 lambda2)))) lambda1 (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
36.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 (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) #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)))))))))
34.9%
(*.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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
36.9%
(*.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) #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)))))))))
12.2%
(*.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 #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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
25.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 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
29.9%
(*.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) #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)))))))))
44.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 #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)))))))))
41.2%
(*.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 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (neg.f64 phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
36.9%
(*.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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
77.3%
#s(approx (* R (* 2 (atan2 (sqrt (+ (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 (- 1 (+ (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))))))))) (*.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))))))))
Compiler

Compiled 39 168 to 20 242 computations (48.3% saved)

simplify168.0ms (0.3%)

Memory
14.8MiB live, 242.6MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff0
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
cost-diff128
(+.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)))))
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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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-diff128
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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)))
cost-diff192
(-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
cost-diff384
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
cost-diff576
(/.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))
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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))
cost-diff640
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
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-diff128
(+.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)))))
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
11 592×lower-fma.f32
11 576×lower-fma.f64
3 972×lower-+.f32
3 954×lower-+.f64
3 182×lower-*.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01533077
02743033
14582954
28842769
322742758
473452756
082202681
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 (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)))))) (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))))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.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)))))) (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))))))))
(sqrt.f64 (+.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 (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)))))
(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))
(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))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
#s(literal 1/2 binary64)
phi1
(cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(*.f64 #s(literal -1/2 binary64) phi2)
#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)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin.f64 (*.f64 #s(literal -1/2 binary64) 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
(*.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 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #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 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 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 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 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 #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 lambda2 lambda1)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(cos.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda2 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 (/.f64 (-.f64 phi1 phi2) #s(literal 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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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)))
(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 (fma.f64 #s(literal -1/2 binary64) (cos.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 #s(literal -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 lambda1 lambda2)
lambda1
lambda2
#s(literal 1/2 binary64)
(+.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)
(sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.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 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
#s(literal 1 binary64)
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))
(cos.f64 (+.f64 phi1 phi2))
(+.f64 phi1 phi2)
(+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)))
#s(literal 1/4 binary64)
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))
(cos.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda2 lambda1)
#s(literal -1/4 binary64)
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 (-.f64 phi2 phi1)) #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) #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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) #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/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) #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 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)) (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) #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))))
(-.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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))
#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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 lambda1 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64))
#s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(*.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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))
(sqrt.f64 (+.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 (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)))))
(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))
(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))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
#s(literal 1/2 binary64)
phi1
(cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(*.f64 #s(literal -1/2 binary64) phi2)
#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)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin.f64 (*.f64 #s(literal -1/2 binary64) 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))
(-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))
#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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(*.f64 phi2 #s(literal -1/2 binary64))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
(*.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 (-.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))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (*.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)) (pow.f64 (fma.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))))) #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 (fma.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))))) #s(literal 2 binary64)))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (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 (fma.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))))) #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 (fma.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))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.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)))))) (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))))))))
(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 (fma.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))))) #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 (fma.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))))) #s(literal 2 binary64))))))
(sqrt.f64 (+.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))))))
(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 (fma.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))))) #s(literal 2 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)))))
(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 (fma.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))))) #s(literal 2 binary64)))
(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))
(pow.f64 (fma.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))))) #s(literal 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 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)))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
phi1
(cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 #s(literal -1/2 binary64) phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
#s(literal -1/2 binary64)
phi2
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(*.f64 (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))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (fma.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))))) #s(literal 2 binary64)))))
(-.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 #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 (fma.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))))) #s(literal 2 binary64))))
#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)))))
(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 (fma.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))))) #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 (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))))) #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 (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 (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 phi1 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #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 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 phi2 #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))) (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 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))) (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 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.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 lambda2 lambda1)) #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 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)))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))
(cos.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda2 lambda1)
lambda2
(*.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 (/.f64 (-.f64 phi1 phi2) #s(literal 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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (+.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)) (+.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 (cos.f64 (-.f64 lambda2 lambda1)) #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 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))
(-.f64 lambda1 lambda2)
lambda1
lambda2
#s(literal 1/2 binary64)
(+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))
(+.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)
(sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 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/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 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/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
#s(literal 1 binary64)
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 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/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2)))
(+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))
(cos.f64 (+.f64 phi1 phi2))
(cos.f64 (+.f64 phi2 phi1))
(+.f64 phi1 phi2)
(+.f64 phi2 phi1)
(+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64)))
(fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))
#s(literal 1/4 binary64)
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))
(*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda2 lambda1)
#s(literal -1/4 binary64)
(-.f64 #s(literal 1/2 binary64) (*.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))
(*.f64 (cos.f64 (-.f64 phi2 phi1)) #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) #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 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)) (sin.f64 (/.f64 (-.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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 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)) (sin.f64 (/.f64 (-.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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 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)) (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 (-.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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))))
(-.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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))
(-.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 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))
#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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 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 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 lambda1 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64))
#s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(*.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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.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 (fma.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))))) #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) (*.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))) (*.f64 #s(literal 2 binary64) R))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))
(*.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 (fma.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))))) #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) (*.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))
(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 (fma.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))))) #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) (*.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(sqrt.f64 (+.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))))))
(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 (fma.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))))) #s(literal 2 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)))))
(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 (fma.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))))) #s(literal 2 binary64)))
(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))
(pow.f64 (fma.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))))) #s(literal 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 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)))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
phi1
(cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 #s(literal -1/2 binary64) phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
#s(literal -1/2 binary64)
phi2
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(*.f64 (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))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.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) #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) (*.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))
(-.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) (*.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
#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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
#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) (*.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (*.f64 (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(*.f64 phi2 #s(literal -1/2 binary64))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
(*.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 (-.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))

localize1.7s (3.3%)

Memory
-17.6MiB live, 2 186.6MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy0.6854111749560378
(-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))
accuracy15.715416198606029
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy15.715416198606029
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
accuracy32.445944569162826
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
accuracy15.715416198606029
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy16.53343292986602
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy27.744744971102378
#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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))
accuracy40.92940457792486
#s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
accuracy16.38360058980649
(cos.f64 (+.f64 phi2 phi1))
accuracy16.38360058980649
(cos.f64 (+.f64 phi1 phi2))
accuracy16.47024326763486
(cos.f64 (-.f64 phi2 phi1))
accuracy16.53343292986602
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy16.47024326763486
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
accuracy17.022269440207925
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
accuracy26.38922041759847
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))))
accuracy33.866519269503925
#s(approx (- 1/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.46712875976844204
(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))
accuracy0.46712875976844204
(pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 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.6854111749560378
(-.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))))))
accuracy15.715416198606029
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Samples
837.0ms171×1valid
535.0ms82×2valid
4.0ms3×0valid
Compiler

Compiled 2 689 to 137 computations (94.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 1.2s
ival-cos: 503.0ms (41.9% of total)
ival-sin: 214.0ms (17.8% of total)
ival-mult: 155.0ms (12.9% of total)
adjust: 148.0ms (12.3% of total)
ival-add: 42.0ms (3.5% of total)
ival-pow2: 37.0ms (3.1% of total)
ival-sub: 31.0ms (2.6% of total)
ival-atan2: 31.0ms (2.6% of total)
ival-sqrt: 28.0ms (2.3% of total)
ival-div: 10.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)

series205.0ms (0.4%)

Memory
-5.4MiB live, 310.5MiB allocated
Counts
31 → 1 068
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 (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))))) (patch (+.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))))) #<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 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 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())
#s(alt (/.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)) (patch (/.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)) #<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 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (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)) (patch (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)) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<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 (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())
#s(alt (cos.f64 (+.f64 phi1 phi2)) (patch (cos.f64 (+.f64 phi1 phi2)) #<representation binary64>) () ())
#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())
#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())
#s(alt #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) #<representation binary64>) () ())
#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 lambda2)) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda2)) (* 1/2 (* lambda1 (sin lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* -1/4 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* 1/2 (sin lambda2)) (* lambda1 (+ (* -1/4 (cos lambda2)) (* -1/12 (* lambda1 (sin lambda2)))))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos lambda2) (cos phi1)))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))) (* 1/2 (* (cos lambda2) (cos phi1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (* (cos lambda2) (cos phi1))) (* lambda1 (+ (* -1/4 (* lambda1 (* (cos lambda2) (cos phi1)))) (* 1/2 (* (cos phi1) (sin 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (* (cos lambda2) (cos phi1))) (* lambda1 (+ (* 1/2 (* (cos phi1) (sin lambda2))) (* lambda1 (+ (* -1/4 (* (cos lambda2) (cos phi1))) (* -1/12 (* lambda1 (* (cos phi1) (sin 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (taylor 0 lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (taylor 0 lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/4 (* lambda1 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (cos (- phi2 phi1))))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda1 (- (* -1/8 (* lambda1 (* (cos lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* -1/4 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda1 (- (* lambda1 (- (* -1/24 (* lambda1 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* -1/4 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (- 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (- lambda2 lambda1))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda1) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda1) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda1) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (- 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda1) (#s(alt (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda1) (#s(alt (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda1) (#s(alt (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (+ 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (+ 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (+ 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (+ 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 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 (+ (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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (- 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (+ (* (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) 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))))) (patch (+.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))))) #<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) 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))))) (patch (+.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))))) #<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) 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))))) (patch (+.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))))) #<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) 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))))) (patch (+.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))))) #<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))) (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 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (taylor 0 phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))) (taylor 0 phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* 1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))) (taylor 0 phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1))))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))))))) (taylor 0 phi2) (#s(alt (/.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)) (patch (/.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)) #<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 (- (+ 1/2 (* 1/2 (cos (neg phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1))))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (neg phi1))) (* phi2 (- (* -1/2 (sin (neg phi1))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi1) (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1))))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (neg phi1))) (* phi2 (- (+ (* -1/2 (sin (neg phi1))) (* phi2 (- (* -1/4 (cos (neg phi1))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi1) (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1))))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (neg phi1))) (* phi2 (- (+ (* -1/2 (sin (neg phi1))) (* phi2 (- (+ (* -1/4 (cos (neg phi1))) (* phi2 (- (* 1/12 (sin (neg phi1))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi1) (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1))))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1)))))) (+ (* 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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow (sin (* 1/2 phi1)) 2) (taylor 0 phi2) (#s(alt (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (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 (cos (neg phi1)) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi1)) (* -1 (* phi2 (sin (neg phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (neg phi1)))) (sin (neg phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (neg phi1))) (* 1/6 (* phi2 (sin (neg phi1)))))) (sin (neg phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<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) (* -1 (* 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))) (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))))) (sin phi1)))) (taylor 0 phi2) (#s(alt (cos.f64 (+.f64 phi1 phi2)) (patch (cos.f64 (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos phi1) (taylor 0 phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* -1 (* phi2 (sin phi1)))) (taylor 0 phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (sin phi1)))) (taylor 0 phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* 1/6 (* phi2 (sin phi1))))) (sin phi1)))) (taylor 0 phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (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))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (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/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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (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/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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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)))) (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 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (/.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)) (patch (/.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)) #<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 (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 (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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (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 (cos (- phi2 phi1)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<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 (cos (+ phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 phi2) (#s(alt #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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))))) (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 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (/.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)) (patch (/.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)) #<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 (- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 (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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (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 (cos (neg (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<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 (cos (- phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (+ (* (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) 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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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)))) (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 (- lambda2 lambda1)))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/4 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/2 (cos (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda2 lambda1))) (* 1/48 (* (pow phi1 2) (cos (- lambda2 lambda1)))))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/1440 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/48 (cos (- lambda2 lambda1))))))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (taylor 0 phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* phi1 (+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 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 (- (+ 1/2 (* 1/2 (cos phi2))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1))))))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi2)) (* phi1 (- (* 1/2 (sin phi2)) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi2) (* -1 (sin phi2))))))))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1))))))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi2)) (* phi1 (- (+ (* 1/2 (sin phi2)) (* phi1 (- (* -1/4 (cos phi2)) (* -1 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1))))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi2) (* -1 (sin phi2))))))))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1))))))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi2)) (* phi1 (- (+ (* 1/2 (sin phi2)) (* phi1 (- (+ (* -1/4 (cos phi2)) (* phi1 (- (* -1/12 (sin phi2)) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2)))))))) (* -1 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1))))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi2) (* -1 (sin phi2))))))))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1))))))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 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) (+ 1/2 (* -1/2 (cos (- lambda1 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2))))) (+ (* -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) (+ 1/2 (* -1/2 (cos (- lambda1 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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow (sin (* -1/2 phi2)) 2) (taylor 0 phi1) (#s(alt (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)) (patch (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)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (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)) (patch (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)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (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)) (patch (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)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -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))))) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (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)) (patch (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)) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (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 (cos phi2) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (sin phi2))) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (* -1 (sin phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* -1/6 (* phi1 (sin phi2))))) (* -1 (sin phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos phi2) (taylor 0 phi1) (#s(alt (cos.f64 (+.f64 phi1 phi2)) (patch (cos.f64 (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* -1 (* phi1 (sin phi2)))) (taylor 0 phi1) (#s(alt (cos.f64 (+.f64 phi1 phi2)) (patch (cos.f64 (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (sin phi2)))) (taylor 0 phi1) (#s(alt (cos.f64 (+.f64 phi1 phi2)) (patch (cos.f64 (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* 1/6 (* phi1 (sin phi2))))) (sin phi2)))) (taylor 0 phi1) (#s(alt (cos.f64 (+.f64 phi1 phi2)) (patch (cos.f64 (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos phi2) (taylor 0 phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* -1 (* phi1 (sin phi2)))) (taylor 0 phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (sin phi2)))) (taylor 0 phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* 1/6 (* phi1 (sin phi2))))) (sin phi2)))) (taylor 0 phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 phi2)) (taylor 0 phi1) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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)))) (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 (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (/.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)) (patch (/.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)) #<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 (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 (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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (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 (cos (- phi2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 phi1)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<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 (cos (+ phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #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 phi1) (#s(alt #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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)))))) (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 (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (/.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)) (patch (/.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)) #<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 (- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 (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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 (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)) (patch (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)) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))) #<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 (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 (cos (+ phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi2 phi1)) (patch (cos.f64 (-.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (+.f64 phi1 phi2)) (patch (cos.f64 (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (+.f64 phi1 phi2)) (patch (cos.f64 (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (+.f64 phi1 phi2)) (patch (cos.f64 (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (+.f64 phi1 phi2)) (patch (cos.f64 (+.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi2 (* -1 phi1))) (taylor -inf phi1) (#s(alt (cos.f64 (+.f64 phi2 phi1)) (patch (cos.f64 (+.f64 phi2 phi1)) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (patch #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (neg lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* lambda2 (sin (neg lambda1)))) (* 1/2 (cos (neg lambda1)))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* -1/4 (* lambda2 (cos (neg lambda1))))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* lambda2 (+ (* -1/4 (cos (neg lambda1))) (* 1/12 (* lambda2 (sin (neg lambda1))))))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (neg 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* 1/2 (* (cos phi1) (cos (neg 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (neg lambda1)))) (* -1/4 (* lambda2 (* (cos phi1) (cos (neg 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/4 (* (cos phi1) (cos (neg lambda1)))) (* 1/12 (* lambda2 (* (cos phi1) (sin (neg 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (taylor 0 lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (taylor 0 lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* -1/4 (* lambda2 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (cos (- phi2 phi1))))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda2 (- (* -1/8 (* lambda2 (* (cos (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda2 (- (* lambda2 (- (* 1/24 (* lambda2 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* 1/4 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 #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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (- 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (- lambda2 lambda1))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda2 lambda1))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1))))) (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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda2) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda2) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda2) (#s(alt #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (- 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda2) (#s(alt (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda2) (#s(alt (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 lambda2) (#s(alt (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (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))))) (patch (+.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))))) #<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 (neg (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (/.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)) (patch (/.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)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (patch (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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))) #<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 (+ (* (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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (-.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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (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 #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)))))) (patch (-.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)))))) #<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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))) (patch #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) (patch #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))) #<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 (- 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (patch (-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<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 (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 (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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))) #<representation binary64>) () ())) ())
Calls

15 calls:

TimeVariablePointExpression
14.0ms
lambda1
@inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- lambda1 lambda2) 2) (+ (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))))) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (/ (- phi1 phi2) 2) (- 1 (+ (* (+ (cos (- phi2 phi1)) (cos (+ phi1 phi2))) (+ 1/4 (* (cos (- lambda2 lambda1)) -1/4))) (- 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 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 (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)) (- 1 (+ (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) (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (- phi1 phi2)))) (sin (/ (- phi1 phi2) 2)) (cos (- phi2 phi1)) (cos (+ phi1 phi2)) (cos (+ phi2 phi1)) (sin (* (- phi1 phi2) 1/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)))) (sin (* (- lambda1 lambda2) 1/2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
13.0ms
phi1
@inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- lambda1 lambda2) 2) (+ (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))))) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (/ (- phi1 phi2) 2) (- 1 (+ (* (+ (cos (- phi2 phi1)) (cos (+ phi1 phi2))) (+ 1/4 (* (cos (- lambda2 lambda1)) -1/4))) (- 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 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 (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)) (- 1 (+ (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) (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (- phi1 phi2)))) (sin (/ (- phi1 phi2) 2)) (cos (- phi2 phi1)) (cos (+ phi1 phi2)) (cos (+ phi2 phi1)) (sin (* (- phi1 phi2) 1/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)))) (sin (* (- lambda1 lambda2) 1/2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
13.0ms
lambda2
@inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- lambda1 lambda2) 2) (+ (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))))) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (/ (- phi1 phi2) 2) (- 1 (+ (* (+ (cos (- phi2 phi1)) (cos (+ phi1 phi2))) (+ 1/4 (* (cos (- lambda2 lambda1)) -1/4))) (- 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 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 (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)) (- 1 (+ (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) (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (- phi1 phi2)))) (sin (/ (- phi1 phi2) 2)) (cos (- phi2 phi1)) (cos (+ phi1 phi2)) (cos (+ phi2 phi1)) (sin (* (- phi1 phi2) 1/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)))) (sin (* (- lambda1 lambda2) 1/2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
10.0ms
lambda1
@-inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- lambda1 lambda2) 2) (+ (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))))) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (/ (- phi1 phi2) 2) (- 1 (+ (* (+ (cos (- phi2 phi1)) (cos (+ phi1 phi2))) (+ 1/4 (* (cos (- lambda2 lambda1)) -1/4))) (- 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 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 (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)) (- 1 (+ (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) (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (- phi1 phi2)))) (sin (/ (- phi1 phi2) 2)) (cos (- phi2 phi1)) (cos (+ phi1 phi2)) (cos (+ phi2 phi1)) (sin (* (- phi1 phi2) 1/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)))) (sin (* (- lambda1 lambda2) 1/2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
10.0ms
lambda2
@-inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- lambda1 lambda2) 2) (+ (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))))) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (/ (- phi1 phi2) 2) (- 1 (+ (* (+ (cos (- phi2 phi1)) (cos (+ phi1 phi2))) (+ 1/4 (* (cos (- lambda2 lambda1)) -1/4))) (- 1/2 (* (cos (- phi2 phi1)) 1/2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 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 (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)) (- 1 (+ (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) (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (- phi1 phi2)))) (sin (/ (- phi1 phi2) 2)) (cos (- phi2 phi1)) (cos (+ phi1 phi2)) (cos (+ phi2 phi1)) (sin (* (- phi1 phi2) 1/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)))) (sin (* (- lambda1 lambda2) 1/2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))

simplify369.0ms (0.7%)

Memory
8.1MiB live, 432.4MiB allocated
Algorithm
1×egg-herbie
Rules
9 660×lower-fma.f64
9 660×lower-fma.f32
6 886×lower-+.f64
6 886×lower-+.f32
4 688×lower-*.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0133628622
1457028316
0847726744
Stop Event
1×iter limit
1×node limit
Counts
1 068 → 1 065
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)))
(+ (* (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 lambda2))
(+ (* 1/2 (cos lambda2)) (* 1/2 (* lambda1 (sin lambda2))))
(+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* -1/4 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))
(+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* 1/2 (sin lambda2)) (* lambda1 (+ (* -1/4 (cos lambda2)) (* -1/12 (* lambda1 (sin lambda2))))))))
(+ 1/2 (* 1/2 (* (cos lambda2) (cos phi1))))
(+ 1/2 (+ (* 1/2 (* lambda1 (* (cos phi1) (sin lambda2)))) (* 1/2 (* (cos lambda2) (cos phi1)))))
(+ 1/2 (+ (* 1/2 (* (cos lambda2) (cos phi1))) (* lambda1 (+ (* -1/4 (* lambda1 (* (cos lambda2) (cos phi1)))) (* 1/2 (* (cos phi1) (sin lambda2)))))))
(+ 1/2 (+ (* 1/2 (* (cos lambda2) (cos phi1))) (* lambda1 (+ (* 1/2 (* (cos phi1) (sin lambda2))) (* lambda1 (+ (* -1/4 (* (cos lambda2) (cos phi1))) (* -1/12 (* lambda1 (* (cos phi1) (sin lambda2))))))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (+ (* 1/4 (* lambda1 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (cos (- phi2 phi1))))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda1 (- (* -1/8 (* lambda1 (* (cos lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* -1/4 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda1 (- (* lambda1 (- (* -1/24 (* lambda1 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* -1/4 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (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 (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 (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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (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 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)))
(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)))
(* (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))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (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 (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 (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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 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))
(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)))
(* (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))
(+ (* (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 (+ lambda2 (* -1 lambda1))))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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))
(* 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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (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 (+ (* (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 (+ (* (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 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))
(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)))
(* (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))))))))
(+ (* (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)))
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 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* 1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1))))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))))
(* 1/2 phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(- (+ 1/2 (* 1/2 (cos (neg phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1)))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi1))) (* phi2 (- (* -1/2 (sin (neg phi1))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi1) (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1)))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi1))) (* phi2 (- (+ (* -1/2 (sin (neg phi1))) (* phi2 (- (* -1/4 (cos (neg phi1))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi1) (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1)))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi1))) (* phi2 (- (+ (* -1/2 (sin (neg phi1))) (* phi2 (- (+ (* -1/4 (cos (neg phi1))) (* phi2 (- (* 1/12 (sin (neg phi1))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi1) (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1)))))) (+ (* 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)))
(+ (* (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 (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 (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 (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 (sin (* 1/2 (- phi1 phi2))) 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)))
(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))
(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))))))
(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)))))))))
(cos (neg phi1))
(+ (cos (neg phi1)) (* -1 (* phi2 (sin (neg phi1)))))
(+ (cos (neg phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (neg phi1)))) (sin (neg phi1)))))
(+ (cos (neg phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (neg phi1))) (* 1/6 (* phi2 (sin (neg phi1)))))) (sin (neg phi1)))))
(cos phi1)
(+ (cos phi1) (* -1 (* phi2 (sin phi1))))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (sin phi1))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))))
(cos phi1)
(+ (cos phi1) (* -1 (* phi2 (sin phi1))))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (sin phi1))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* 1/6 (* phi2 (sin phi1))))) (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)))))))))
(+ (* (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)))
(- 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)))
(* (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))) (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 (- (* (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))))
(- 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 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* -1/2 phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (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 (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 (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 (sin (* 1/2 (- phi1 phi2))) 2)))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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)
(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)))))))
(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)))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(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)))
(+ (* (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))
(- 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)))
(* (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))) (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 (- (* (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)))))
(- 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 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ 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)))))
(- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* 1/2 (+ phi1 (* -1 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 (sin (* 1/2 (+ phi1 (* -1 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 (sin (* 1/2 (+ phi1 (* -1 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 (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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)
(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)))))))
(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))))
(cos (neg (+ phi1 (* -1 phi2))))
(cos (neg (+ phi1 (* -1 phi2))))
(cos (neg (+ phi1 (* -1 phi2))))
(cos (neg (+ phi1 (* -1 phi2))))
(cos (- phi1 (* -1 phi2)))
(cos (- phi1 (* -1 phi2)))
(cos (- phi1 (* -1 phi2)))
(cos (- phi1 (* -1 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))))
(+ (* (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))
(- 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))
(+ (* -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))))))))
(+ (* (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))
(+ (* -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))))
(- (+ 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 (- lambda2 lambda1))))
(+ 1/2 (+ (* -1/4 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/2 (cos (- lambda2 lambda1)))))
(+ 1/2 (+ (* 1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda2 lambda1))) (* 1/48 (* (pow phi1 2) (cos (- lambda2 lambda1))))))))
(+ 1/2 (+ (* 1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/1440 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/48 (cos (- lambda2 lambda1)))))))))
(* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))
(+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))
(+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* phi1 (+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin 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))
(- (+ 1/2 (* 1/2 (cos phi2))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))))))
(- (+ 1/2 (+ (* 1/2 (cos phi2)) (* phi1 (- (* 1/2 (sin phi2)) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi2) (* -1 (sin phi2))))))))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))))))
(- (+ 1/2 (+ (* 1/2 (cos phi2)) (* phi1 (- (+ (* 1/2 (sin phi2)) (* phi1 (- (* -1/4 (cos phi2)) (* -1 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1))))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi2) (* -1 (sin phi2))))))))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))))))
(- (+ 1/2 (+ (* 1/2 (cos phi2)) (* phi1 (- (+ (* 1/2 (sin phi2)) (* phi1 (- (+ (* -1/4 (cos phi2)) (* phi1 (- (* -1/12 (sin phi2)) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2)))))))) (* -1 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1))))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi2) (* -1 (sin phi2))))))))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))))))
(+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 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) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2))))) (+ (* -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) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (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 (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 (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 (sin (* 1/2 (- phi1 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)))
(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))
(pow (sin (* -1/2 phi2)) 2)
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (+ (* phi1 (+ (* -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))))) (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))))))
(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)))))))))
(cos phi2)
(+ (cos phi2) (* phi1 (sin phi2)))
(+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (* -1 (sin phi2)))))
(+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* -1/6 (* phi1 (sin phi2))))) (* -1 (sin phi2)))))
(cos phi2)
(+ (cos phi2) (* -1 (* phi1 (sin phi2))))
(+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (sin phi2))))
(+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))))
(cos phi2)
(+ (cos phi2) (* -1 (* phi1 (sin phi2))))
(+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (sin phi2))))
(+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* 1/6 (* phi1 (sin phi2))))) (sin 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)))))))))
(+ (* (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)))
(- 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)))
(* (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))) (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 (- (* (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))))
(- 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 (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (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 (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 (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 (sin (* 1/2 (- phi1 phi2))) 2)))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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)
(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)))))))
(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)))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(cos (- phi2 phi1))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(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)))
(+ (* (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))
(- 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)))
(* (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))) (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 (- (* (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))))))
(- 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 (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- 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)))
(- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* -1/2 (+ phi2 (* -1 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 (sin (* -1/2 (+ phi2 (* -1 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 (sin (* -1/2 (+ phi2 (* -1 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 (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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)
(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)))))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ 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))))
(cos (+ phi2 (* -1 phi1)))
(cos (+ phi2 (* -1 phi1)))
(cos (+ phi2 (* -1 phi1)))
(cos (+ phi2 (* -1 phi1)))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 phi1)))
(cos (- 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))))
(+ (* (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))
(- 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)))
(* (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)))
(+ (* (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 (neg lambda1)))
(+ (* -1/2 (* lambda2 (sin (neg lambda1)))) (* 1/2 (cos (neg lambda1))))
(+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* -1/4 (* lambda2 (cos (neg lambda1)))))))
(+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* lambda2 (+ (* -1/4 (cos (neg lambda1))) (* 1/12 (* lambda2 (sin (neg lambda1)))))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg lambda1)))))
(+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* 1/2 (* (cos phi1) (cos (neg lambda1))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (neg lambda1)))) (* -1/4 (* lambda2 (* (cos phi1) (cos (neg lambda1)))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/4 (* (cos phi1) (cos (neg lambda1)))) (* 1/12 (* lambda2 (* (cos phi1) (sin (neg lambda1)))))))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (+ (* -1/4 (* lambda2 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (cos (- phi2 phi1))))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda2 (- (* -1/8 (* lambda2 (* (cos (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda2 (- (* lambda2 (- (* 1/24 (* lambda2 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* 1/4 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (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 (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 (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 (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 (- (* (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)))
(- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (- (* (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 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)))
(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)))
(* (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))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(* 1/2 (cos (- lambda2 lambda1)))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (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 (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 (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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos phi1) (* (cos phi2) (pow (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 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))
(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)))
(* (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))
(+ (* (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 (neg (+ lambda1 (* -1 lambda2)))))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (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))
(* 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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1 (+ (* (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 (+ (* (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 (+ (* (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 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))
(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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 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 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #s(literal 2 binary64))))
(* 1/2 (cos lambda2))
(*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))
(+ (* 1/2 (cos lambda2)) (* 1/2 (* lambda1 (sin lambda2))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2)))
(+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* -1/4 (* lambda1 (cos lambda2))) (* 1/2 (sin 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 (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(+ (* 1/2 (cos lambda2)) (* lambda1 (+ (* 1/2 (sin lambda2)) (* lambda1 (+ (* -1/4 (cos lambda2)) (* -1/12 (* lambda1 (sin lambda2))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (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)))
(+ 1/2 (* 1/2 (* (cos lambda2) (cos phi1))))
(*.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 lambda2)))) (* 1/2 (* (cos lambda2) (cos phi1)))))
(fma.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (sin.f64 lambda2))) #s(literal 1/2 binary64))
(+ 1/2 (+ (* 1/2 (* (cos lambda2) (cos phi1))) (* lambda1 (+ (* -1/4 (* lambda1 (* (cos lambda2) (cos phi1)))) (* 1/2 (* (cos phi1) (sin 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)) (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 lambda2) (cos phi1))) (* lambda1 (+ (* 1/2 (* (cos phi1) (sin lambda2))) (* lambda1 (+ (* -1/4 (* (cos lambda2) (cos phi1))) (* -1/12 (* lambda1 (* (cos phi1) (sin lambda2))))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (*.f64 (sin.f64 lambda2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 lambda2) #s(literal -1/4 binary64)) (cos.f64 phi1))) lambda1 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (*.f64 (neg.f64 (sin.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 lambda2)) (*.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (sin.f64 lambda2))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal -1/24 binary64) lambda1) (*.f64 (neg.f64 (sin.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda1 (*.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (sin.f64 lambda2))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda1 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (+ (* 1/4 (* lambda1 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (cos (- phi2 phi1))))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 lambda2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda1 (- (* -1/8 (* lambda1 (* (cos lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* -1/4 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 lambda2)) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 lambda2)) #s(literal 1/4 binary64))) lambda1 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda1 (- (* lambda1 (- (* -1/24 (* lambda1 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* -1/4 (* (sin lambda2) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos lambda2))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/24 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 lambda2)) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 lambda2)) #s(literal -1/8 binary64))) lambda1 (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 lambda2)) #s(literal 1/4 binary64))) lambda1 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* 1/4 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (*.f64 (neg.f64 (sin.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/8 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 lambda2)) (*.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (sin.f64 lambda2))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda1 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda1 (+ (* 1/4 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda1 (+ (* -1/24 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal -1/24 binary64) lambda1) (*.f64 (neg.f64 (sin.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda1 (*.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (sin.f64 lambda2))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda1 (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 #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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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))))
(- 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)))
(-.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 (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)))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (-.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 (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)))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(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 (-.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 (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)))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(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 (-.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 (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)))) #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))))
(+.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))))
(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 (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 (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 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 (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 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 (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 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 (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 (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 (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/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 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))))
(+ (* (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 #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)))
(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)))) (-.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 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 #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 (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 (-.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)))))
(* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #s(literal 2 binary64)))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #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 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)))
(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))))
(* (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 (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 (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 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (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 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (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 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (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 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #s(literal 2 binary64)))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda2 (* -1 lambda1))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda2 (* -1 lambda1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (+ lambda2 (* -1 lambda1))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 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)))
(* 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 (sin (* 1/2 (- phi1 phi2))) 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 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (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)))))))
(* 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 (sin (* 1/2 (- phi1 phi2))) 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 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (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)))))))
(* 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 (sin (* 1/2 (- phi1 phi2))) 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 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (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)))))))
(* 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 (sin (* 1/2 (- phi1 phi2))) 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 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (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)))
(-.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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (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)))
(-.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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (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)))
(-.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 (-.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)))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda1 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 (* -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 lambda1 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 (* -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 lambda1 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 (* -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 lambda1 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 (* -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 lambda1 lambda2)) #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 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)))
(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))))
(* (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)))
(+ (* (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 (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 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) phi2 (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))))
(+ (* (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 (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 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) phi2 (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))))
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 #s(literal 1/2 binary64) (cos.f64 phi1)))
(- (+ 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 #s(literal 1/2 binary64) (cos.f64 phi1))))
(- (+ 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 #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)))
(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 #s(literal 1/2 binary64) (cos.f64 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1)))
(+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* 1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/2 (* phi2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1))))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi1) #s(literal -1 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 0 binary64) (sin.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) phi2 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 phi1)))) phi2 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #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))
(- (+ 1/2 (* 1/2 (cos (neg phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1)))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi1))) (* phi2 (- (* -1/2 (sin (neg phi1))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi1) (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1)))))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 phi1)) #s(literal -1/2 binary64) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)))) phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi1))) (* phi2 (- (+ (* -1/2 (sin (neg phi1))) (* phi2 (- (* -1/4 (cos (neg phi1))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi1) (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1)))))
(-.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (*.f64 (neg.f64 (*.f64 (cos.f64 phi1) #s(literal -1 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)))) phi2 (fma.f64 (neg.f64 (sin.f64 phi1)) #s(literal -1/2 binary64) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64))))) phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi1))) (* phi2 (- (+ (* -1/2 (sin (neg phi1))) (* phi2 (- (+ (* -1/4 (cos (neg phi1))) (* phi2 (- (* 1/12 (sin (neg phi1))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi1) (sin (neg phi1))))))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos phi1) (cos (neg phi1)))))
(-.f64 (fma.f64 (fma.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 phi1)) #s(literal 1/12 binary64) (*.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 0 binary64) (sin.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)))) phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (*.f64 (neg.f64 (*.f64 (cos.f64 phi1) #s(literal -1 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64))))) phi2 (fma.f64 (neg.f64 (sin.f64 phi1)) #s(literal -1/2 binary64) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64))))) phi2 (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))))) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.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 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))))))))) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 phi1)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi1) #s(literal -1 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 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1))))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1)))))) (* phi2 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1)))))) (+ (* 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 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi1) #s(literal -1 binary64)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.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 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 phi1))))) phi2 (fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 #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 (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 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) phi2 (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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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) (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)))
(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 (-.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 (- (* 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 (*.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 (-.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)))))
(pow (sin (* 1/2 phi1)) 2)
(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))))) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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/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 #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 (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/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 (*.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 (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(pow (sin (* 1/2 phi1)) 2)
(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))))) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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/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 #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 (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/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 (*.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 (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(- (+ 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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))))))
(-.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 lambda1 lambda2)) #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 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 1/2 binary64))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (fma.f64 #s(literal 1/2 binary64) (cos.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)) (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 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) phi2) (sin.f64 phi1) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 1/2 binary64)))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (fma.f64 #s(literal 1/2 binary64) (cos.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)) (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 #s(literal -1/6 binary64) (*.f64 (sin.f64 phi1) phi2) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) phi2 (sin.f64 phi1)) phi2 (cos.f64 phi1))
(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)))
(cos (neg phi1))
(cos.f64 phi1)
(+ (cos (neg phi1)) (* -1 (* phi2 (sin (neg phi1)))))
(fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))
(+ (cos (neg phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (neg phi1)))) (sin (neg phi1)))))
(fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)) phi2 (cos.f64 phi1))
(+ (cos (neg phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (neg phi1))) (* 1/6 (* phi2 (sin (neg phi1)))))) (sin (neg phi1)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) phi2) (neg.f64 (sin.f64 phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) phi2 (sin.f64 phi1)) phi2 (cos.f64 phi1))
(cos phi1)
(cos.f64 phi1)
(+ (cos phi1) (* -1 (* phi2 (sin phi1))))
(fma.f64 (neg.f64 phi2) (sin.f64 phi1) (cos.f64 phi1))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (sin phi1))))
(fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (neg.f64 (sin.f64 phi1))) phi2 (cos.f64 phi1))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))))
(fma.f64 (fma.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 (sin.f64 phi1) phi2) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) phi2 (neg.f64 (sin.f64 phi1))) phi2 (cos.f64 phi1))
(cos phi1)
(cos.f64 phi1)
(+ (cos phi1) (* -1 (* phi2 (sin phi1))))
(fma.f64 (neg.f64 phi2) (sin.f64 phi1) (cos.f64 phi1))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (sin phi1))))
(fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (neg.f64 (sin.f64 phi1))) phi2 (cos.f64 phi1))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))))
(fma.f64 (fma.f64 (fma.f64 #s(literal 1/6 binary64) (*.f64 (sin.f64 phi1) phi2) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) phi2 (neg.f64 (sin.f64 phi1))) phi2 (cos.f64 phi1))
(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)))
(+ (* (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 (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 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) phi2 (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))))
(+ (* (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 (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 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) phi2 (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))))
(- 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)))
(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 (-.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 (- (* 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 (*.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 (-.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)))))
(* (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #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))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* -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)
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(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)))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(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))
(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))
(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)))
(+ (* (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)))
(- 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)))
(*.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #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)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* -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)))
(- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (neg (+ phi1 (* -1 phi2)))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 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 (+ (* (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 (sin (* 1/2 (+ phi1 (* -1 phi2)))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (+ phi1 (* -1 phi2)))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (+ phi1 (* -1 phi2)))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (+ phi1 (* -1 phi2)))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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)))
(cos (neg (+ phi1 (* -1 phi2))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ phi1 (* -1 phi2))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ phi1 (* -1 phi2))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ 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))
(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))
(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)))
(+ (* (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)))
(- 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))
(*.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)))
(+ (* (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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(+ (* 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 (*.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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(+ (* 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 (*.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 #s(literal -1/2 binary64) phi2)) (cos.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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.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 (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 (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 #s(literal 1/2 binary64) phi2)) (cos.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 (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))))
(-.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 (sin.f64 phi2) (neg.f64 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 #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))))
(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 #s(literal 1/2 binary64) (cos.f64 phi2))))
(+ 1/2 (* 1/2 (cos (- lambda2 lambda1))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/4 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/2 (cos (- lambda2 lambda1)))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda2 lambda1))) (* 1/48 (* (pow phi1 2) (cos (- lambda2 lambda1))))))))
(fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal 1/48 binary64) (*.f64 phi1 phi1) #s(literal -1/4 binary64))) (*.f64 phi1 phi1) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* 1/2 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda2 lambda1))) (* (pow phi1 2) (+ (* -1/1440 (* (pow phi1 2) (cos (- lambda2 lambda1)))) (* 1/48 (cos (- lambda2 lambda1)))))))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/1440 binary64) (*.f64 phi1 phi1) #s(literal 1/48 binary64))) (*.f64 phi1 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))) (*.f64 phi1 phi1) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))
(*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))
(+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (*.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)) (cos.f64 phi2)))
(+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (*.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 (cos.f64 phi2) phi1 #s(literal 0 binary64)))) phi1 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* phi1 (+ (* -1/2 (* phi1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (*.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 0 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) phi1 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 0 binary64))) phi1 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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) 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))
(- (+ 1/2 (* 1/2 (cos phi2))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))))))
(fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (cos phi2)) (* phi1 (- (* 1/2 (sin phi2)) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi2) (* -1 (sin phi2))))))))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))))))
(fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (sin.f64 phi2) #s(literal 1/2 binary64) (*.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)))) phi1 (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (cos.f64 phi2)))))
(- (+ 1/2 (+ (* 1/2 (cos phi2)) (* phi1 (- (+ (* 1/2 (sin phi2)) (* phi1 (- (* -1/4 (cos phi2)) (* -1 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1))))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi2) (* -1 (sin phi2))))))))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))))))
(fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (cos.f64 phi2))) phi1 (fma.f64 (sin.f64 phi2) #s(literal 1/2 binary64) (*.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64))))) phi1 (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (cos.f64 phi2)))))
(- (+ 1/2 (+ (* 1/2 (cos phi2)) (* phi1 (- (+ (* 1/2 (sin phi2)) (* phi1 (- (+ (* -1/4 (cos phi2)) (* phi1 (- (* -1/12 (sin phi2)) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2)))))))) (* -1 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1))))))))) (* -1 (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (sin phi2) (* -1 (sin phi2))))))))) (* 2 (* (cos phi2) (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))))))
(fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (fma.f64 (fma.f64 (sin.f64 phi2) #s(literal -1/12 binary64) (*.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)))) phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (cos.f64 phi2)))) phi1 (fma.f64 (sin.f64 phi2) #s(literal 1/2 binary64) (*.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64))))) phi1 (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (cos.f64 phi2)))))
(+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (*.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #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 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 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) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 0 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))) phi1 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2))))) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2))))) (+ (* -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) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal -1/2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 0 binary64) (*.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 (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 (fma.f64 (*.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #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 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(+ (* 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 (*.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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(+ (* 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 (*.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 #s(literal -1/2 binary64) phi2)) (cos.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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 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 (* 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 #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)))))) (* -1 (* (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)))) (neg.f64 phi1) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) phi1 (-.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 (* 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)))
(fma.f64 (fma.f64 (neg.f64 (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 (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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) phi1 (-.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)))))
(pow (sin (* 1/2 phi2)) 2)
(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))))) (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))) (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/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 #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 (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/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 (*.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 (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))
(pow (sin (* -1/2 phi2)) 2)
(pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (pow (sin (* -1/2 phi2)) 2))
(*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(+ (* phi1 (+ (* phi1 (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (*.f64 (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) phi1 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(+ (* phi1 (+ (* phi1 (+ (* -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))))) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (*.f64 (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 (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) phi1 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 lambda1 lambda2)) #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 #s(literal -1/4 binary64) (cos.f64 phi2) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #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 (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 #s(literal -1/4 binary64) (cos.f64 phi2) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #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 (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #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))
(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)))
(cos phi2)
(cos.f64 phi2)
(+ (cos phi2) (* phi1 (sin phi2)))
(fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))
(+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (* -1 (sin 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 (- (* phi1 (+ (* -1/2 (cos phi2)) (* -1/6 (* phi1 (sin phi2))))) (* -1 (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))
(cos phi2)
(cos.f64 phi2)
(+ (cos phi2) (* -1 (* phi1 (sin phi2))))
(fma.f64 (sin.f64 phi2) (neg.f64 phi1) (cos.f64 phi2))
(+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (sin phi2))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (cos.f64 phi2) (neg.f64 (sin.f64 phi2))) phi1 (cos.f64 phi2))
(+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* 1/6 (* phi1 (sin phi2))))) (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 (neg.f64 (sin.f64 phi2))) phi1 (cos.f64 phi2))
(cos phi2)
(cos.f64 phi2)
(+ (cos phi2) (* -1 (* phi1 (sin phi2))))
(fma.f64 (sin.f64 phi2) (neg.f64 phi1) (cos.f64 phi2))
(+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (sin phi2))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (cos.f64 phi2) (neg.f64 (sin.f64 phi2))) phi1 (cos.f64 phi2))
(+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* 1/6 (* phi1 (sin phi2))))) (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 (neg.f64 (sin.f64 phi2))) phi1 (cos.f64 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)))
(+ (* (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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(+ (* 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 (*.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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(+ (* 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 (*.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 #s(literal -1/2 binary64) phi2)) (cos.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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.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 (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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(+ (* 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 (*.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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(+ (* 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 (*.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 #s(literal -1/2 binary64) phi2)) (cos.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) phi1 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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)))
(fma.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (-.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 (* 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 #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))) phi1 (-.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 (* 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 (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 (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 (-.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)))))
(* (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #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))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 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)
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(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)))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 phi1))
(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))
(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))
(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)))
(+ (* (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)))
(- 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)))
(*.f64 (*.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #s(literal 2 binary64)))
phi1
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) (neg.f64 phi1))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) (neg.f64 phi1))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)) (neg.f64 phi1))
(- 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 (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 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 (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))
(- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (+ phi2 (* -1 phi1))))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #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) (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* -1/2 (+ phi2 (* -1 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* -1/2 (+ phi2 (* -1 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* -1/2 (+ phi2 (* -1 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* -1/2 (+ phi2 (* -1 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (-.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)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #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 lambda1 lambda2)) #s(literal -1/2 binary64) #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))
(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)))
(cos (+ phi2 (* -1 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos (+ phi2 (* -1 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos (+ phi2 (* -1 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos (+ phi2 (* -1 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi2 (* -1 phi1)))
(cos.f64 (+.f64 phi2 phi1))
(cos (- phi2 (* -1 phi1)))
(cos.f64 (+.f64 phi2 phi1))
(cos (- phi2 (* -1 phi1)))
(cos.f64 (+.f64 phi2 phi1))
(cos (- phi2 (* -1 phi1)))
(cos.f64 (+.f64 phi2 phi1))
(cos (- phi2 (* -1 phi1)))
(cos.f64 (+.f64 phi2 phi1))
(cos (- phi2 (* -1 phi1)))
(cos.f64 (+.f64 phi2 phi1))
(cos (- phi2 (* -1 phi1)))
(cos.f64 (+.f64 phi2 phi1))
(cos (- 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)))
(+ (* (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)))
(- 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))))
(* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 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 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #s(literal 2 binary64))))
(* 1/2 (cos (neg lambda1)))
(*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))
(+ (* -1/2 (* lambda2 (sin (neg lambda1)))) (* 1/2 (cos (neg lambda1))))
(fma.f64 (neg.f64 (*.f64 (sin.f64 lambda1) lambda2)) #s(literal -1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))
(+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* -1/4 (* lambda2 (cos (neg lambda1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (cos.f64 lambda1) (neg.f64 (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64)))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))
(+ (* 1/2 (cos (neg lambda1))) (* lambda2 (+ (* -1/2 (sin (neg lambda1))) (* lambda2 (+ (* -1/4 (cos (neg lambda1))) (* 1/12 (* lambda2 (sin (neg lambda1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda2) (neg.f64 (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64))) lambda2 (neg.f64 (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64)))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 lambda1) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (sin (neg lambda1))))) (* 1/2 (* (cos phi1) (cos (neg lambda1))))))
(fma.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (*.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 phi1))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (neg lambda1)))) (* -1/4 (* lambda2 (* (cos phi1) (cos (neg lambda1)))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (neg.f64 (sin.f64 lambda1)))) lambda2 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 lambda1) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (neg lambda1)))) (* lambda2 (+ (* -1/4 (* (cos phi1) (cos (neg lambda1)))) (* 1/12 (* lambda2 (* (cos phi1) (sin (neg lambda1)))))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda2) (*.f64 (neg.f64 (sin.f64 lambda1)) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (cos.f64 lambda1))) lambda2 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (neg.f64 (sin.f64 lambda1)))) lambda2 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 lambda1) #s(literal 1/2 binary64)))
(* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (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/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (*.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda2) (*.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda2 (*.f64 (*.f64 #s(literal 1/2 binary64) (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/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) lambda2) (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda2 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda2 (*.f64 (*.f64 #s(literal 1/2 binary64) (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/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (+ (* -1/4 (* lambda2 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (cos (- phi2 phi1))))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (neg.f64 (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda2 (- (* -1/8 (* lambda2 (* (cos (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda2) (*.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -1/4 binary64))) lambda2 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi2 phi1))) (* lambda2 (- (* lambda2 (- (* 1/24 (* lambda2 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* 1/4 (* (sin (neg lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/4 (* -1/4 (cos (neg lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) lambda2) (*.f64 (neg.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/8 binary64))) lambda2 (*.f64 (*.f64 (neg.f64 (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -1/4 binary64))) lambda2 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1/4 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* 1/8 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 #s(literal 1/8 binary64) lambda2) (*.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda2 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (+ (* lambda2 (+ (* -1/4 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (* lambda2 (+ (* 1/24 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/8 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) lambda2) (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (*.f64 #s(literal 1/8 binary64) (cos.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda2 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda2 (fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (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 #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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(-.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 (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)))) #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)))
(-.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 (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 (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)))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(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 (-.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 (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)))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(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 (-.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 (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)))) #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 (*.f64 (sin.f64 lambda1) lambda2) #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #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 #s(literal 1/4 binary64) lambda2) (cos.f64 lambda1) (*.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 #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 (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 phi2 phi1)) #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 phi2 phi1))) #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 (*.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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 #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))))
(+ (* (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)))
(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))) (-.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 (- (* -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 (*.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 (-.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 (- (* 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 (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 (-.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)))))
(* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #s(literal 2 binary64)))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda2 lambda1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda2 lambda1)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (- lambda2 lambda1)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 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 (- 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 lambda1 lambda2)) #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)))
(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))))
(* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #s(literal 2 binary64)))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda1 (* -1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda1 (* -1 lambda2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (cos (- phi2 phi1)))) (* (+ 1/4 (* -1/4 (cos (neg (+ lambda1 (* -1 lambda2)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.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/4 binary64) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 2 binary64)))
(+ (* 1/2 (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 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 (+ (* (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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+ (* (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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+ (* (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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+ (* (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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (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)))
(-.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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (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)))
(-.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 (-.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)))) #s(literal 2 binary64))))
(- 1 (+ (* (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)))
(-.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 (-.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)))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda1 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 (+ 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 lambda1 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 (+ 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 lambda1 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 (+ 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 lambda1 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 (+ 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 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)))
(+ (* (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 (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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 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 (sin (* 1/2 (- phi1 phi2))) 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))

rewrite358.0ms (0.7%)

Memory
28.8MiB live, 448.9MiB allocated
Rules
4 356×lower-fma.f32
4 342×lower-fma.f64
3 484×lower-*.f32
3 434×lower-*.f64
2 306×lower-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0132730
0229646
1849538
27487538
08062510
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
31 → 1 205
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 (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 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 phi1 phi2)))
(-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (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))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/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 phi1 phi2) #s(literal 2 binary64))
(-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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)))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(-.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))))))
(pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 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 (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))
#s(approx (- 1/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 lambda2 lambda1)) #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 phi1 phi2))))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(cos.f64 (-.f64 phi2 phi1))
(cos.f64 (+.f64 phi1 phi2))
(cos.f64 (+.f64 phi2 phi1))
#s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(-.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))
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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 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 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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)))
(*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))))
(*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)))
(*.f64 #s(literal 1 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))))
(*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(*.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 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(*.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)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(pow.f64 (/.f64 #s(literal 1 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)))) #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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)))
(/.f64 (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (*.f64 (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)))
(/.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.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 phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 phi2 phi1)))))))
(/.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 lambda2 lambda1))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)))
(/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 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))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1))))))) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 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))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))))) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 phi2 phi1)))))))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64)))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))))) (*.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))) (-.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64))))))
(/.f64 (neg.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (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 lambda2 lambda1))))) #s(literal 1/4 binary64)))) (*.f64 #s(literal 2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64)))
(/.f64 (*.f64 (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 phi2 phi1))))))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(/.f64 (*.f64 (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))))
(/.f64 (*.f64 (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64))) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))))))
(/.f64 (*.f64 (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64))) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 phi2 phi1))))))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 phi2 phi1))))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64)) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)) (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64)) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 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 phi1 phi2))))) (+.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/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64)))) (*.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 phi2 phi1)))))) (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64))) (*.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 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 phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))) (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (*.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))) (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64))) (*.f64 (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64)))) (*.f64 (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64)))) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 phi2 phi1)))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64))) (*.f64 (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 phi2 phi1)))))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 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))))))
(/.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 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)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 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)))))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(neg.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #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 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal -1/4 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (-.f64 phi1 phi2)) (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (+.f64 phi2 phi1))))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (+.f64 phi2 phi1)) (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (-.f64 phi1 phi2))))
(fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(fma.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(fma.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(fma.f64 #s(literal 1/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 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(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)))) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 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 1/4 binary64)) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(+.f64 (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)) (*.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64))))
(+.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (-.f64 phi1 phi2))) (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (+.f64 phi2 phi1))))
(+.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (-.f64 phi1 phi2))))
(+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(+.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(*.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) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 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 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) lambda1) #s(literal 3 binary64)) (pow.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda1) (fma.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.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 #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) (/.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 (neg.f64 lambda2) #s(literal 1/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 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(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) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(-.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 lambda2 #s(literal 1/2 binary64)))
(+.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) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 (pow.f64 (*.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))) #s(literal 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 (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 (cos.f64 (-.f64 phi1 phi2)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64)))))
(*.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.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)))))
(/.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.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))) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.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)) #s(literal 1/2 binary64)) (fma.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)) #s(literal 1/2 binary64))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (+.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (fma.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)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)))) (fma.f64 (fma.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)) #s(literal 1/2 binary64)) (fma.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)) #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 phi1 phi2))))) #s(literal 1/4 binary64) (*.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.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)))))
(/.f64 (-.f64 (pow.f64 (*.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))) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.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)))) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (*.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 (cos.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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.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))) #s(literal 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 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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/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 (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 (/.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 #s(literal 1/8 binary64) (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)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 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))))
(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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 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 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 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)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #s(literal 1 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))))
(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 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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))))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (*.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 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.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))) #s(literal 1 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(fma.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)) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64) (*.f64 (*.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))) #s(literal 1 binary64)))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (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)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (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)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (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)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (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)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/4 binary64) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 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))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 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))) (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 (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))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 (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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/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)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 phi1 phi2)) #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)) (*.f64 #s(literal 1 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 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 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(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)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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 1/4 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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)))
(-.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 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))))) (/.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.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))))))
(-.f64 (/.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #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 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #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)))))
(+.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 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(+.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (*.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))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.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))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (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))))
(+.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 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 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+.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))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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)))))
(*.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 (pow.f64 (*.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))) #s(literal 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 (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 (cos.f64 (-.f64 phi1 phi2)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64)))))
(*.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.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)))))
(/.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.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))) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.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)) #s(literal 1/2 binary64)) (fma.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)) #s(literal 1/2 binary64))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (+.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (fma.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)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)))) (fma.f64 (fma.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)) #s(literal 1/2 binary64)) (fma.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)) #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 phi1 phi2))))) #s(literal 1/4 binary64) (*.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.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)))))
(/.f64 (-.f64 (pow.f64 (*.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))) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.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)))) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (*.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 (cos.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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.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))) #s(literal 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 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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/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 (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 (/.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 #s(literal 1/8 binary64) (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)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 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))))
(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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 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 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 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)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #s(literal 1 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))))
(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 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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))))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (*.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 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.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))) #s(literal 1 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(fma.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)) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64) (*.f64 (*.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))) #s(literal 1 binary64)))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (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)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (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)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (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)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (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)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/4 binary64) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 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))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 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))) (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 (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))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 (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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/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)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 phi1 phi2)) #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)) (*.f64 #s(literal 1 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 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 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(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)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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 1/4 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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)))
(-.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 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))))) (/.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.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))))))
(-.f64 (/.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #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 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #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)))))
(+.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 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(+.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (*.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))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.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))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (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))))
(+.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 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 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+.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))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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)))))
(*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (-.f64 phi1 phi2))
(*.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 (-.f64 phi2 phi1) (*.f64 phi1 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 phi1 phi2) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))
(*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.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)))
(/.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 (-.f64 (*.f64 phi1 phi1) (*.f64 (neg.f64 phi2) (neg.f64 phi2))) (-.f64 phi1 (neg.f64 phi2)))
(/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (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 (+.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 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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(/.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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))
(fma.f64 #s(literal -1 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #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 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 0 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))) (/.f64 (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (neg.f64 (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 0 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 0 binary64))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 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 (/.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 #s(literal 1/8 binary64) (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)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/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 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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (-.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 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 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 (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 (-.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 #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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (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 (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 (-.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 #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))) (-.f64 (*.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 (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 (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 (*.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (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 #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))) (-.f64 (*.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 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (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 (*.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 (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 (-.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 #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 (*.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 (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 (fma.f64 (+.f64 #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))))) (fma.f64 (+.f64 #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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 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) 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))) (-.f64 (*.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 (+.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 (fma.f64 (+.f64 #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))) (-.f64 (*.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)))))) (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 (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 (fma.f64 (+.f64 #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))) (-.f64 (*.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 (+.f64 #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))) (-.f64 (*.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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 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))) (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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (*.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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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)))))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 (neg.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) #s(literal 1/2 binary64))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 (-.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.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) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.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 (-.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (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 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 (-.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)))))
(+.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.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) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 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 lambda2 lambda1))))) #s(literal 1/4 binary64))) #s(literal 1/4 binary64)) (-.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (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 lambda2 lambda1))))) #s(literal 1/4 binary64))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (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 lambda2 lambda1))))) #s(literal 1/4 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (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 lambda2 lambda1))))) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (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 lambda2 lambda1))))) #s(literal 1/4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))
(fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(+.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(*.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 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 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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)))
(*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))))
(*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)))
(*.f64 #s(literal 1 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))))
(*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(*.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 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(*.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)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(*.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(pow.f64 (/.f64 #s(literal 1 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)))) #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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)))
(/.f64 (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (*.f64 (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)))
(/.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.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 phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 phi2 phi1)))))))
(/.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 lambda2 lambda1))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)))
(/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 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))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1))))))) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 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))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))))) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 phi2 phi1)))))))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64)))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))))) (*.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))) (-.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64))))))
(/.f64 (neg.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (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 lambda2 lambda1))))) #s(literal 1/4 binary64)))) (*.f64 #s(literal 2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/4 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 2 binary64)))
(/.f64 (*.f64 (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 phi2 phi1))))))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(/.f64 (*.f64 (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))))
(/.f64 (*.f64 (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64))) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))))))
(/.f64 (*.f64 (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64))) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 phi2 phi1))))))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 phi2 phi1))))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64)) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)) (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))))))
(/.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64)) (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 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 phi1 phi2))))) (+.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/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64)))) (*.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 phi2 phi1)))))) (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64))) (*.f64 (-.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 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 phi1))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))) (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (*.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))) (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64))) (*.f64 (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64)))) (*.f64 (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (-.f64 #s(literal 1/16 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/16 binary64)))) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 phi2 phi1)))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64))) (*.f64 (fma.f64 (cos.f64 (+.f64 phi2 phi1)) (-.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 3 binary64))) (fma.f64 #s(literal -1/64 binary64) (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/64 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) (-.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 phi2 phi1)))))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) #s(literal 1/16 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 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))))))
(/.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 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)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 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)))))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(neg.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #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 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal -1/4 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (-.f64 phi1 phi2)) (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (+.f64 phi2 phi1))))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (+.f64 phi2 phi1)) (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (-.f64 phi1 phi2))))
(fma.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(fma.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(fma.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(fma.f64 #s(literal 1/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 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(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)))) (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 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 1/4 binary64)) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(+.f64 (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)) (*.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64))))
(+.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (-.f64 phi1 phi2))) (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (+.f64 phi2 phi1))))
(+.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (cos.f64 (-.f64 phi1 phi2))))
(+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))))
(+.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 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 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #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/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 #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 (pow.f64 (*.f64 #s(literal 1/2 binary64) phi1) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1/2 binary64) phi2) #s(literal 3 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 (+.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) phi1) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal -1/2 binary64) phi2) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1) (-.f64 (*.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 (-.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 #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 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/.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)))
(neg.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1))
(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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))
(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) (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) 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 #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) (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))
(+.f64 (*.f64 #s(literal -1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.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 (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 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 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)))) (-.f64 #s(literal 1 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))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (-.f64 #s(literal 1 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)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (pow.f64 (*.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))) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 1 binary64) (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)))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1 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)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (fma.f64 (-.f64 #s(literal 1 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)))) (-.f64 #s(literal 1 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)))) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1 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)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (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 3 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (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)))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 #s(literal 1 binary64) (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(fma.f64 #s(literal -1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(-.f64 (-.f64 (-.f64 #s(literal 1 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)))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (/.f64 (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (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))))
(-.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1 binary64) (fma.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)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (-.f64 #s(literal 1 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)))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 #s(literal 1 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)))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1 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)))))
(+.f64 (-.f64 #s(literal 1 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))))
(+.f64 (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #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)) (pow.f64 (*.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))) #s(literal 2 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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 (pow.f64 (*.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))) #s(literal 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 (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 (cos.f64 (-.f64 phi1 phi2)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64)))))
(*.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.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)))))
(/.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.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))) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.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)) #s(literal 1/2 binary64)) (fma.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)) #s(literal 1/2 binary64))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (+.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (fma.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)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)))) (fma.f64 (fma.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)) #s(literal 1/2 binary64)) (fma.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)) #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 phi1 phi2))))) #s(literal 1/4 binary64) (*.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.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)))))
(/.f64 (-.f64 (pow.f64 (*.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))) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.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)))) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (*.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 (cos.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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.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))) #s(literal 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 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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/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 (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 (/.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 #s(literal 1/8 binary64) (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)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 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))))
(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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 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 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 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)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #s(literal 1 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))))
(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 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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))))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (*.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 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.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))) #s(literal 1 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(fma.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)) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64) (*.f64 (*.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))) #s(literal 1 binary64)))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (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)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (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)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (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)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (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)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/4 binary64) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 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))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 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))) (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 (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))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 (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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/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)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 phi1 phi2)) #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)) (*.f64 #s(literal 1 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 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 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(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)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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 1/4 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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)))
(-.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 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))))) (/.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.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))))))
(-.f64 (/.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #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 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #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)))))
(+.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 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(+.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (*.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))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.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))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (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))))
(+.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 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 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+.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))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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)))))
(*.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 (pow.f64 (*.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))) #s(literal 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 (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 (cos.f64 (-.f64 phi1 phi2)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64)))))
(*.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.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)))))
(/.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.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))) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.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)) #s(literal 1/2 binary64)) (fma.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)) #s(literal 1/2 binary64))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (+.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (fma.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)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)))) (fma.f64 (fma.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)) #s(literal 1/2 binary64)) (fma.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)) #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 phi1 phi2))))) #s(literal 1/4 binary64) (*.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.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)))))
(/.f64 (-.f64 (pow.f64 (*.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))) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 6 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (fma.f64 (*.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))) (-.f64 (*.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 (cos.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 4 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.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)))) (-.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (*.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 (cos.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 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.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))) #s(literal 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 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.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)))) (pow.f64 (*.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))) #s(literal 2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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/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 (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 (/.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 #s(literal 1/8 binary64) (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)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 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))))
(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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 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 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 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)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #s(literal 1 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))))
(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 (cos.f64 (-.f64 lambda2 lambda1)) #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 (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))))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (*.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 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.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))) #s(literal 1 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(fma.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)) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64) (*.f64 (*.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))) #s(literal 1 binary64)))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (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)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (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)) (cos.f64 (+.f64 phi2 phi1))) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (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)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (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)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/4 binary64) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 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))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 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))) (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 (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))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.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 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 (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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/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)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 phi1 phi2)) #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)) (*.f64 #s(literal 1 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 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 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))
(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)))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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 1/4 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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)))
(-.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 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))))) (/.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.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))))))
(-.f64 (/.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (-.f64 (*.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 (cos.f64 (-.f64 phi1 phi2)) #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 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #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)))))
(+.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 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))
(+.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (*.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))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.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))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (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))))
(+.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #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 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 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 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+.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))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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)))))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.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 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.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)) R)
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.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 R (*.f64 (atan2.f64 (sqrt.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.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 #s(literal 2 binary64) (*.f64 (atan2.f64 (sqrt.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))) R))
(*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 1 binary64))
(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 (*.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 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (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 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1 binary64)))
(+.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 (*.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 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.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 (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 (*.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 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)))) (-.f64 #s(literal 1 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))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (-.f64 #s(literal 1 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)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (pow.f64 (*.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))) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 1 binary64) (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)))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1 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)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (fma.f64 (-.f64 #s(literal 1 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)))) (-.f64 #s(literal 1 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)))) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1 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)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (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 3 binary64)) (pow.f64 (*.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))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (pow.f64 (*.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))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (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)))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 #s(literal 1 binary64) (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(fma.f64 #s(literal -1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(-.f64 (-.f64 (-.f64 #s(literal 1 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)))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (/.f64 (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (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))))
(-.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1 binary64) (fma.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)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (-.f64 #s(literal 1 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)))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 #s(literal 1 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)))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1 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)))))
(+.f64 (-.f64 #s(literal 1 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))))
(+.f64 (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #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 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 (/.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 #s(literal 1/8 binary64) (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)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/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 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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (-.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 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 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 (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 (-.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 #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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (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 (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 (-.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 #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))) (-.f64 (*.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 (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 (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 (*.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (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 #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))) (-.f64 (*.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 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (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 (*.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 (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 (-.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 #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 (*.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 (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 (fma.f64 (+.f64 #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))))) (fma.f64 (+.f64 #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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 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) 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))) (-.f64 (*.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 (+.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 (fma.f64 (+.f64 #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))) (-.f64 (*.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)))))) (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 (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 (fma.f64 (+.f64 #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))) (-.f64 (*.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 (+.f64 #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))) (-.f64 (*.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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 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))) (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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (*.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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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)))))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 (neg.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) #s(literal 1/2 binary64))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 (-.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.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) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.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 (-.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (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 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 (-.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)))))
(+.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (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))) (-.f64 #s(literal 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 (-.f64 #s(literal 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/8 binary64) (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)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/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 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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (-.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 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 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 (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 (-.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 #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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (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 (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 (-.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 #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))) (-.f64 (*.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 (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 (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 (*.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 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (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 #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))) (-.f64 (*.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 #s(literal 1/4 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (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 (*.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 (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 (-.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 #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 (*.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 (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 (fma.f64 (+.f64 #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))))) (fma.f64 (+.f64 #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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 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) 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))) (-.f64 (*.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 (+.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (*.f64 (fma.f64 (+.f64 #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))) (-.f64 (*.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)))))) (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 (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 (fma.f64 (+.f64 #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))) (-.f64 (*.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 (+.f64 #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))) (-.f64 (*.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 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 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))) (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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (*.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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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)))))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 (neg.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) #s(literal 1/2 binary64))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 (-.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.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) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #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 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.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 (-.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (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 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 (-.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)))))
(+.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (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))))))
(/.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 (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)))))
(/.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))))
(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 (-.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 (pow.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #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))) (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (cos.f64 (+.f64 phi2 phi1)))
(/.f64 (-.f64 (pow.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #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 (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) #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 phi2) (sin.f64 phi1)) #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 phi2) (sin.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.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/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (-.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 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (cos.f64 (-.f64 phi1 phi2)) #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 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 (-.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 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 (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 (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 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (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 (cos.f64 (-.f64 phi1 phi2)) #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 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))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal 1/8 binary64) (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)) (-.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 #s(literal 1/8 binary64) (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)) (-.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 (cos.f64 (-.f64 phi1 phi2)) #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 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(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 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) 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 phi2) (sin.f64 phi1)))
(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 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.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 (cos.f64 (neg.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 (neg.f64 phi2)) (sin.f64 phi1)))
(-.f64 (*.f64 (cos.f64 (neg.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (neg.f64 phi1)) (sin.f64 phi2)))
(-.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi1))))
(-.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))
(-.f64 (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) #s(literal 1/2 binary64)))
(cos.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(cos.f64 (-.f64 phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(+.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 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 (-.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 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 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 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.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)))))))
(*.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))) (-.f64 (*.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))))))))
(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 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi2)))))) (*.f64 (+.f64 #s(literal 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))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #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 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.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 (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 (neg.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 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.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 (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 (-.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 (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 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (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 (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) 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 (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))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 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)) (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 (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) phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (*.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) phi1))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))))
(/.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))) (-.f64 (*.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 #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 (+.f64 #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 #s(literal 1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 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 #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))) (-.f64 (*.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 (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 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 (+.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 (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)) (cos.f64 (*.f64 #s(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 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(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) 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 (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 (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))))
(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 (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))))
(fma.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))))
(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))))
(fma.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))))
(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 (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))))
(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 #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 (*.f64 (+.f64 #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) phi1))))) (-.f64 #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)))))) (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 (*.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 (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 (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))))
(+.f64 (*.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 (-.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 (pow.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #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))) (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (cos.f64 (+.f64 phi2 phi1)))
(/.f64 (-.f64 (pow.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #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 (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) #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 phi2) (sin.f64 phi1)) #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 phi2) (sin.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.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/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (-.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 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (cos.f64 (-.f64 phi1 phi2)) #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 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 (-.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 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 (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 (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 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (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 (cos.f64 (-.f64 phi1 phi2)) #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 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))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal 1/8 binary64) (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)) (-.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 #s(literal 1/8 binary64) (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)) (-.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 (cos.f64 (-.f64 phi1 phi2)) #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 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(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 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) 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 phi2) (sin.f64 phi1)))
(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 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.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 (cos.f64 (neg.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 (neg.f64 phi2)) (sin.f64 phi1)))
(-.f64 (*.f64 (cos.f64 (neg.f64 phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 (neg.f64 phi1)) (sin.f64 phi2)))
(-.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi1))))
(-.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))
(-.f64 (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) #s(literal 1/2 binary64)))
(cos.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(cos.f64 (-.f64 phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(+.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 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 (-.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 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (cos.f64 (-.f64 phi1 phi2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) 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 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) 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 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) 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)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(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 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(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 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(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)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(cos.f64 (+.f64 phi2 phi1))
(+.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 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (cos.f64 (-.f64 phi1 phi2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) 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 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) 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 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) 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)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(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 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(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 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(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)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(cos.f64 (+.f64 phi2 phi1))
(+.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 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(*.f64 (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1/2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1/2 binary64)))
(pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1 binary64))
#s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(exp.f64 (*.f64 (log.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #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 #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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64))
(*.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))
(*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 1 binary64))
(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 (*.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 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (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 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1 binary64)))
(+.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 (*.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 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.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 #s(literal 1 binary64) (+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (neg.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (neg.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))) (-.f64 #s(literal 1 binary64) (neg.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (neg.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (neg.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 #s(literal 1 binary64) (neg.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.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)))) (neg.f64 (+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 3 binary64)))) (neg.f64 (fma.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 3 binary64))) (fma.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.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 #s(literal 1 binary64) (/.f64 (fma.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 3 binary64)))))
(fma.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64))) (/.f64 (pow.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 3 binary64)) (fma.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) (+.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))
(+.f64 (neg.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))

eval1.4s (2.8%)

Memory
-243.0MiB live, 1 922.2MiB allocated
Compiler

Compiled 302 507 to 14 733 computations (95.1% saved)

prune2.5s (4.8%)

Memory
1.6MiB live, 3 842.5MiB allocated
Pruning

279 alts after pruning (279 fresh and 0 done)

PrunedKeptTotal
New3 7031313 834
Fresh93148241
Picked505
Done000
Total3 8012794 080
Accuracy
79.9%
Counts
4 080 → 279
Alt Table
Click to see full alt table
StatusAccuracyProgram
44.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
46.5%
(*.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.2%
(*.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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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/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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
56.1%
(*.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 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) (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 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.1%
(*.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 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.8%
(*.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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
40.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 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
56.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 (+.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)))
45.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) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
28.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) (fma.f64 (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (*.f64 phi1 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.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) (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))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 1/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)))
43.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) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 2 binary64))) (cos.f64 (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 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)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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)))
28.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 (*.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
53.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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
42.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 (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)))
42.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 (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)))
56.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 (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)))
56.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 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 R #s(literal 2 binary64)))
55.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) (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)))
57.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) (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)))
57.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) (+.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)))
53.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 2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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 #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 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
56.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 #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)))
56.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 #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 R #s(literal 2 binary64)))
51.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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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)))
15.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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
32.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 lambda1 #s(literal -1/2 binary64)) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
35.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) #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)))
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 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
43.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) #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.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) #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)))
44.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)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
42.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 #s(approx (- (+ 1/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)))
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 #s(approx (- (+ 1/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 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
38.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 (+.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 lambda1 lambda2)) #s(literal -1/2 binary64) #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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
44.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 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 lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
44.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 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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))))) (*.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) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))))))))) (*.f64 R #s(literal 2 binary64)))
44.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos 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 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
20.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos 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 (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 lambda2 (*.f64 lambda1 (+.f64 lambda2 lambda1))))))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
44.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 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
23.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 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 (- lambda2 lambda1)) 1/2))) (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))))))))) (*.f64 R #s(literal 2 binary64)))
33.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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
36.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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
27.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 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))))) (*.f64 R #s(literal 2 binary64)))
46.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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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.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 #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
40.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (cos.f64 phi2) (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)))
36.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) #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)))
39.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) #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)))
27.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
40.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) #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)))
41.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
16.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 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 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
15.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
16.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 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 R #s(literal 2 binary64)))
15.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
12.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.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)))
15.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/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)))
15.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/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 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
13.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
12.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
28.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 (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
56.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
44.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (-.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 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
37.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/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 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.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)))
25.0%
(*.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
32.1%
(*.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 lambda2 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)) (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
36.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)) (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 lambda2 lambda1)) #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)) (/.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
35.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 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/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)) (-.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
25.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #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/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (cos.f64 (-.f64 phi1 phi2)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
25.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #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))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
35.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) (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))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
36.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) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
36.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) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
35.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) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) 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 phi2) (sin.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
35.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (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) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
21.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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
12.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 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 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 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/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 lambda2 lambda1))))) #s(literal 1/4 binary64))) #s(literal 1/4 binary64)) (-.f64 (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
28.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 (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)))
43.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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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)))
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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/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 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))) (*.f64 R #s(literal 2 binary64)))
35.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
35.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)))
35.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 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
35.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/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/4 binary64) (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
24.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 (- lambda2 lambda1)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
35.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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 lambda1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
16.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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))
26.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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
24.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 (- lambda2 lambda1)) 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)))
27.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 #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 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 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
23.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.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 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
31.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)) phi2 (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
19.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
29.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
22.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
32.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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 lambda1)) #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)) (*.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
21.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- 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 (log.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
31.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)))))) (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 #s(literal 1/2 binary64) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
35.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (/.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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
35.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
17.8%
(*.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
21.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 (*.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
40.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (exp (log (- 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)))
57.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/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))))))))))
35.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
57.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
43.3%
(*.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)) (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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
63.6%
(*.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 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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))) #s(literal 2 binary64)) (*.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))))) (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))))))))))
71.0%
(*.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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.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))))) (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))))))))))
37.1%
(*.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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
56.6%
(*.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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
44.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 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) #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)))))))))
57.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
35.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
56.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #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 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
56.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
57.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
38.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (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)))))) (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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
46.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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) #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)))))))))
63.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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))))) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (+.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 (/.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)))))))))
71.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 phi1 #s(literal 1/2 binary64))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))))) #s(literal 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 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.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)))))))))
57.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
62.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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))))))))))
69.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (*.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/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 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 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))))))))))
46.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 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)))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 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)))))))))
51.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.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 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))))) (-.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)))))))))
19.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.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 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
38.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.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 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
75.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/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))))))))))
74.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal -1/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))))))))))
37.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
75.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))) (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))))))))))
59.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))))
60.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))))
59.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 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 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))))
59.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64) (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 (sqrt.f64 (+.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)))))) (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)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal -1/4 binary64)))))))))
77.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
65.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
49.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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)))) #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)))))))))))
53.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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)) #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)))))))))
55.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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)) #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)))))))))
64.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.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 (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 (fma.f64 (+.f64 #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))) (-.f64 (*.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 (+.f64 #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))) (-.f64 (*.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 (*.f64 (cos.f64 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 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 #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))))))))))
46.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 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.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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)))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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)))))))))
57.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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 (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)))) #s(literal 2 binary64)))))))))
59.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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 (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)))) #s(literal 2 binary64)))))))))
40.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 #s(approx (- 1 (+ (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))))) (-.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)))))))))
51.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 #s(approx (- 1 (+ (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))))) (-.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 (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 (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)))) #s(literal 2 binary64)))))))))
51.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
36.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
55.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (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)) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.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)))) #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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
52.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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))) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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))))))) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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)))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.5%
(*.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 phi1 phi2))) (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 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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) #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)))))))))
55.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
60.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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))))))))))
62.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi1 #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
35.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)) (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/4 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))))))) (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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (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))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
58.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #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))))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 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)))))))
56.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (pow.f64 (-.f64 #s(literal 1 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)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (fma.f64 (-.f64 #s(literal 1 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)))) (-.f64 #s(literal 1 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)))) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1 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)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))))))
56.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.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 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (fma.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 #s(literal 1 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)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
56.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (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))) #s(literal 1/2 binary64)))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64)))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (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 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) 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 phi2) (sin.f64 phi1))) #s(literal 1/2 binary64)))))))))
43.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 phi2)) #s(literal 1/2 binary64)))))))))
44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- phi2 phi1)) (cos.f64 phi1)) #s(literal 1/2 binary64)))))))))
57.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #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 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 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))))))))))
48.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (/.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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(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 (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))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 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))))))))))
43.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 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 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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) #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)))))))))
44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 #s(approx (- 1 (+ (* (+ (cos (- phi2 phi1)) (cos (+ phi1 phi2))) (+ 1/4 (* (cos (- lambda2 lambda1)) -1/4))) (- 1/2 (* (cos (- phi2 phi1)) 1/2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)))))))))
47.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) #s(approx (cos (- phi2 phi1)) (cos.f64 phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
44.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(approx (cos (+ phi2 phi1)) (fma.f64 (sin.f64 phi2) (neg.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
57.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 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (-.f64 (-.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
32.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)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
36.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 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (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 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
23.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 (pow.f64 (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
24.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 (*.f64 (*.f64 (/.f64 #s(literal 2 binary64) lambda2) lambda1) (/.f64 #s(literal 4 binary64) lambda2)) (*.f64 (/.f64 #s(literal 4 binary64) lambda2) #s(literal 2 binary64))) (*.f64 (/.f64 #s(literal 4 binary64) lambda2) (/.f64 #s(literal 4 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.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 (*.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))))))))))
45.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)))) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))))))
25.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 (pow.f64 (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))))))))))
16.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 (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))))
53.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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
16.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 (pow.f64 (exp.f64 #s(literal -1 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (-.f64 lambda1 lambda2)))))))))))))
46.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
15.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 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
16.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
46.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)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (exp (* (log (/ 2 (- lambda1 lambda2))) -1)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
18.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 (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))))))))))
39.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
23.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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/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))))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
39.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) lambda2) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (neg.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)))))))
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)) (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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/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)))))))))
25.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
27.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
34.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 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)) #s(approx (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
48.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)) #s(approx (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (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))))))))))
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)) #s(approx (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
50.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)) #s(approx (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1)))))) (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))))))))))
39.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)) #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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
37.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 phi2))))) (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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
15.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)) #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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
55.2%
(*.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.7%
(*.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 (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))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(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)))))))))))
16.2%
(*.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #s(approx (/ (- phi1 phi2) 2) (*.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.1%
(*.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) phi1))) #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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
25.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) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
39.8%
(*.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
42.6%
(*.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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.8%
(*.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) #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
44.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (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))))) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
44.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (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))))) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #s(approx (sin (/ (- phi1 phi2) 2)) (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)))) #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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
44.2%
(*.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
46.3%
(*.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 (-.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))))))))))
42.1%
(*.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 #s(literal -1/2 binary64) phi2)) (*.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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
63.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.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 (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 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
35.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))) (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 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
35.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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)))))) (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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
57.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
36.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
38.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #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 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
43.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
44.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
37.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 lambda2)) (*.f64 (*.f64 #s(literal 1/4 binary64) (neg.f64 (sin.f64 lambda2))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda1 (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 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
41.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (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 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
45.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (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))) (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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (*.f64 (neg.f64 (sin.f64 lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (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 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
34.9%
(*.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 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
36.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 (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) #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
12.2%
(*.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 #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 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
28.0%
(*.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 #s(literal 1/2 binary64) phi1)) #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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
29.9%
(*.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) #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)))))))))
35.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 #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.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 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)))))))))
77.3%
#s(approx (* R (* 2 (atan2 (sqrt (+ (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 (- 1 (+ (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))))))))) (*.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))))))))
Compiler

Compiled 59 979 to 15 032 computations (74.9% saved)

regimes2.2s (4.4%)

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

12 calls:

252.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
216.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
192.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))))))))
188.0ms
(-.f64 lambda1 lambda2)
175.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
77.4%1R
77.4%1lambda1
77.4%1lambda2
77.4%1phi1
77.4%1phi2
77.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))))))))))
77.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)))))))))
77.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))))))))
77.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)))))
77.4%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
77.4%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
77.4%1(-.f64 lambda1 lambda2)
Compiler

Compiled 296 to 142 computations (52% saved)

regimes2.1s (4.1%)

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

12 calls:

317.0ms
phi2
223.0ms
R
219.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))))))))))
189.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))))))))
187.0ms
lambda2
Results
AccuracySegmentsBranch
65.9%3phi2
60.4%1R
60.4%1lambda2
62.0%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))))))))))
63.4%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)))))))))
63.4%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))))))))
63.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)))))
60.4%1lambda1
66.3%3phi1
66.4%3(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
65.9%3(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
65.9%3(-.f64 lambda1 lambda2)
Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.7s (3.4%)

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

10 calls:

442.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)))))))))
152.0ms
phi1
138.0ms
phi2
138.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)))))
132.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
Results
AccuracySegmentsBranch
60.4%1R
60.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))))))))))
60.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)))))))))
60.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))))))))
60.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)))))
60.4%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
60.4%1(-.f64 lambda1 lambda2)
60.4%1phi2
60.4%1phi1
60.4%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Compiler

Compiled 284 to 132 computations (53.5% saved)

regimes1.5s (2.9%)

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

12 calls:

381.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
104.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)))))
101.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)))))))))
98.0ms
lambda1
95.0ms
phi2
Results
AccuracySegmentsBranch
59.7%1lambda2
59.7%1phi1
59.7%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
59.7%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
59.7%1(-.f64 lambda1 lambda2)
59.7%1lambda1
59.7%1phi2
59.7%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)))))
59.7%1R
59.7%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))))))))))
59.7%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)))))))))
59.7%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))))))))
Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.3s (2.5%)

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

12 calls:

125.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))))))))
117.0ms
lambda1
111.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))))))))))
109.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
104.0ms
phi1
Results
AccuracySegmentsBranch
59.7%1lambda2
59.7%1lambda1
59.7%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)))))
59.7%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
59.7%1phi1
59.7%1R
59.7%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
59.7%1(-.f64 lambda1 lambda2)
59.7%1phi2
59.7%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))))))))))
59.7%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)))))))))
59.7%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))))))))
Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.6s (3.1%)

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

12 calls:

298.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))))))))))
151.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
142.0ms
phi1
120.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)))))))))
120.0ms
phi2
Results
AccuracySegmentsBranch
59.2%1lambda2
59.2%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)))))
59.2%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
59.2%1lambda1
59.2%1phi1
59.2%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
59.2%1(-.f64 lambda1 lambda2)
59.2%1R
59.2%1phi2
59.2%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)))))))))
59.2%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))))))))
59.2%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))))))))))
Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.1s (2.2%)

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

12 calls:

173.0ms
R
109.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))))))))
107.0ms
(-.f64 lambda1 lambda2)
99.0ms
phi2
85.0ms
lambda2
Results
AccuracySegmentsBranch
58.5%1lambda2
58.5%1phi1
58.5%1R
60.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)))))))))
60.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))))))))
60.4%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)))))
58.5%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
58.5%1lambda1
60.2%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))))))))))
58.5%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
58.5%1(-.f64 lambda1 lambda2)
58.5%1phi2
Compiler

Compiled 296 to 142 computations (52% saved)

regimes331.0ms (0.6%)

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

4 calls:

79.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))))))))
68.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)))))))))
62.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))))))))))
59.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
60.2%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))))))))))
58.5%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)))))))))
58.5%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))))))))
58.5%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 237 to 94 computations (60.3% saved)

regimes813.0ms (1.6%)

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

12 calls:

147.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)))))
99.0ms
lambda2
72.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))))))))))
69.0ms
R
66.0ms
phi1
Results
AccuracySegmentsBranch
58.4%1lambda2
58.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)))))
58.4%1R
58.4%1phi1
58.4%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
58.4%1lambda1
58.4%1phi2
58.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)))))))))
58.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))))))))
58.4%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
58.4%1(-.f64 lambda1 lambda2)
58.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))))))))))
Compiler

Compiled 296 to 142 computations (52% saved)

regimes885.0ms (1.7%)

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

12 calls:

121.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))))))))))
114.0ms
phi2
93.0ms
(-.f64 lambda1 lambda2)
91.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))))))))
87.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
Results
AccuracySegmentsBranch
57.5%1lambda2
57.5%1R
59.3%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)))))))))
59.3%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))))))))
59.3%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)))))
57.5%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
57.5%1lambda1
57.5%1phi1
57.5%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))))))))))
57.5%1phi2
57.5%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
57.5%1(-.f64 lambda1 lambda2)
Compiler

Compiled 296 to 142 computations (52% saved)

regimes462.0ms (0.9%)

Memory
-16.8MiB live, 788.3MiB allocated
Counts
91 → 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (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 phi2) (-.f64 #s(literal 1/2 binary64) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 lambda2 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 #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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #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 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.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 lambda2 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 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 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 lambda2 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 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 (-.f64 phi1 phi2) (*.f64 phi2 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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)) (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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 lambda1)) #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 lambda2 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) (-.f64 (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) #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 lambda2 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) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 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 (- lambda2 lambda1)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 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 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (-.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)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (fma.f64 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)) phi2 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (-.f64 #s(literal 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (+.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 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 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)))))) (/.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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (-.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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 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)) (exp.f64 (*.f64 (log.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.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) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (cos.f64 (-.f64 phi2 phi1)) #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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)) phi2 (cos.f64 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 lambda2 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) #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))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/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 (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 lambda2 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)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (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 #s(literal 1/2 binary64) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.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) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (-.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 #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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 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) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)) phi2 (cos.f64 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 lambda2 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) #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))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (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 (/.f64 (-.f64 phi1 phi2) #s(literal 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 #s(approx (- 1 (+ (* (+ (cos (- phi2 phi1)) (cos (+ phi1 phi2))) (+ 1/4 (* (cos (- lambda2 lambda1)) -1/4))) (- 1/2 (* (cos (- phi2 phi1)) 1/2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64) #s(literal 1/4 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/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 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 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/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 R (*.f64 #s(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 (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (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 (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 phi2 phi1)) #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 (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 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/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/4 binary64) (pow.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (-.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 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 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 (- lambda2 lambda1)) 1/2))) (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))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (exp (log (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 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 (exp (log (- 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) #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)))
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 lambda2 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 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
Calls

12 calls:

87.0ms
R
55.0ms
(-.f64 lambda1 lambda2)
43.0ms
lambda1
30.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)))))))))
29.0ms
phi1
Results
AccuracySegmentsBranch
57.0%1R
57.0%1lambda2
57.0%1phi1
57.0%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
57.0%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))))))))))
57.0%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
57.0%1(-.f64 lambda1 lambda2)
57.0%1lambda1
57.0%1phi2
58.9%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)))))))))
58.9%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))))))))
58.7%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)

regimes71.0ms (0.1%)

Memory
13.9MiB live, 165.5MiB allocated
Counts
66 → 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (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 phi2) (-.f64 #s(literal 1/2 binary64) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 lambda2 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 #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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #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 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.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 lambda2 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 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 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 lambda2 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 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 (-.f64 phi1 phi2) (*.f64 phi2 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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)) (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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 lambda1)) #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 lambda2 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) (-.f64 (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) #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 lambda2 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) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 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 (- lambda2 lambda1)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 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 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (-.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)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (fma.f64 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)) phi2 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (-.f64 #s(literal 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (+.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 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 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)))))) (/.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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (-.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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 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)) (exp.f64 (*.f64 (log.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.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) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (cos.f64 (-.f64 phi2 phi1)) #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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)) phi2 (cos.f64 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 lambda2 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) #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))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/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 (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 lambda2 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)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (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 #s(literal 1/2 binary64) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.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) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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 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 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
Calls

3 calls:

21.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)))))))))
20.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))))))))
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)))))
Results
AccuracySegmentsBranch
58.7%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)))))
58.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)))))))))
58.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))))))))
Compiler

Compiled 167 to 68 computations (59.3% saved)

regimes347.0ms (0.7%)

Memory
13.1MiB live, 481.4MiB allocated
Counts
64 → 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (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 phi2) (-.f64 #s(literal 1/2 binary64) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 lambda2 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 #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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #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 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.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 lambda2 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 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 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 lambda2 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 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 (-.f64 phi1 phi2) (*.f64 phi2 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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)) (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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 lambda1)) #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 lambda2 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) (-.f64 (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) #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 lambda2 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) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 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 (- lambda2 lambda1)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 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 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (-.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)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (fma.f64 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)) phi2 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (-.f64 #s(literal 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (+.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 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 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)))))) (/.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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (-.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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 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)) (exp.f64 (*.f64 (log.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.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) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (cos.f64 (-.f64 phi2 phi1)) #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 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (log.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)) phi2 (cos.f64 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 lambda2 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) #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))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/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 (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 lambda2 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)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (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 #s(literal 1/2 binary64) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.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) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

53.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))))))))))
43.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)))))))))
39.0ms
(-.f64 lambda1 lambda2)
39.0ms
lambda1
25.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
56.5%1R
56.5%1phi1
56.5%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
56.5%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))))))))))
56.5%1lambda1
56.5%1lambda2
56.5%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
56.5%1(-.f64 lambda1 lambda2)
59.7%3phi2
58.3%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)))))))))
58.3%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))))))))
58.3%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)

regimes77.0ms (0.2%)

Memory
-4.6MiB live, 155.1MiB allocated
Counts
54 → 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (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 phi2) (-.f64 #s(literal 1/2 binary64) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 lambda2 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 #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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #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 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.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 lambda2 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 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 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 lambda2 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 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 (-.f64 phi1 phi2) (*.f64 phi2 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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)) (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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 lambda1)) #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 lambda2 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) (-.f64 (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) #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 lambda2 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) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 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 (- lambda2 lambda1)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 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 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (-.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)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (fma.f64 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)) phi2 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (-.f64 #s(literal 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (+.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 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 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)))))) (/.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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (-.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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 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)) (exp.f64 (*.f64 (log.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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.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) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
Calls

4 calls:

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)))))))))
16.0ms
phi2
15.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
59.7%3phi2
49.4%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)))))))))
49.4%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))))))))
49.4%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 173 to 73 computations (57.8% saved)

regimes170.0ms (0.3%)

Memory
2.9MiB live, 321.3MiB allocated
Counts
53 → 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (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 phi2) (-.f64 #s(literal 1/2 binary64) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 lambda2 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 #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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #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 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.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 lambda2 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 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 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 lambda2 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 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 (-.f64 phi1 phi2) (*.f64 phi2 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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)) (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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 lambda1)) #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 lambda2 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) (-.f64 (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) #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 lambda2 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) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 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 (- lambda2 lambda1)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 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 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (-.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)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (fma.f64 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64)) phi2 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (-.f64 #s(literal 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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) (fma.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (+.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 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 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)))))) (/.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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (-.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 lambda2 lambda1))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda2 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)) (exp.f64 (*.f64 (log.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 lambda2 lambda1)) #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) (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 (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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
Calls

9 calls:

36.0ms
phi1
17.0ms
phi2
17.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
17.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
16.0ms
(-.f64 lambda1 lambda2)
Results
AccuracySegmentsBranch
46.5%1lambda2
57.7%3phi1
46.5%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))))))))))
46.5%1R
48.1%2(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
46.5%1lambda1
46.5%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
46.5%1(-.f64 lambda1 lambda2)
59.4%3phi2
Compiler

Compiled 129 to 74 computations (42.6% saved)

regimes49.0ms (0.1%)

Memory
-41.0MiB live, 23.4MiB allocated
Counts
35 → 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (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 phi2) (-.f64 #s(literal 1/2 binary64) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 lambda2 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 #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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #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 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.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 lambda2 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 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 (-.f64 phi2 phi1) (*.f64 phi1 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 lambda2 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 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 (-.f64 phi1 phi2) (*.f64 phi2 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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)) (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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.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 lambda2 lambda1)) #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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) 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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Calls

2 calls:

35.0ms
phi1
10.0ms
phi2
Results
AccuracySegmentsBranch
57.7%3phi1
57.5%3phi2
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes11.0ms (0%)

Memory
16.8MiB live, 16.8MiB allocated
Counts
26 → 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (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 phi2) (-.f64 #s(literal 1/2 binary64) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 lambda2 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 #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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Calls

1 calls:

8.0ms
phi1
Results
AccuracySegmentsBranch
57.7%3phi1
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes19.0ms (0%)

Memory
-12.2MiB live, 24.9MiB allocated
Counts
22 → 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (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 phi2) (-.f64 #s(literal 1/2 binary64) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 lambda2 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 #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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 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 lambda2 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 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
Calls

2 calls:

9.0ms
phi1
7.0ms
phi2
Results
AccuracySegmentsBranch
52.9%3phi2
49.6%3phi1
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes57.0ms (0.1%)

Memory
9.2MiB live, 85.6MiB allocated
Counts
12 → 4
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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (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 phi2) (-.f64 #s(literal 1/2 binary64) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 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 lambda2 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 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 lambda2 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 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

6.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)))))))))
5.0ms
lambda2
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 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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
44.4%3lambda1
37.6%2R
46.3%4lambda2
37.6%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))))))))))
35.5%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
35.5%1(-.f64 lambda1 lambda2)
46.2%4phi1
37.4%2(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
38.0%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)))))))))
38.0%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))))))))
38.0%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)))))
45.6%4phi2
Compiler

Compiled 296 to 142 computations (52% saved)

regimes13.0ms (0%)

Memory
20.7MiB live, 20.6MiB allocated
Counts
11 → 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (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 phi2) (-.f64 #s(literal 1/2 binary64) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Calls

3 calls:

4.0ms
lambda2
4.0ms
phi1
4.0ms
lambda1
Results
AccuracySegmentsBranch
35.5%1lambda1
44.4%3phi1
37.3%2lambda2
Compiler

Compiled 18 to 15 computations (16.7% saved)

regimes75.0ms (0.1%)

Memory
-22.5MiB live, 59.8MiB 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))) (*.f64 (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)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 lambda1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

31.0ms
lambda2
6.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))))))))))
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
35.2%1lambda1
35.2%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
35.2%1(-.f64 lambda1 lambda2)
35.2%1lambda2
35.2%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
35.2%1R
35.2%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))))))))))
35.2%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)))))))))
35.2%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))))))))
35.2%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)))))
35.2%1phi2
35.2%1phi1
Compiler

Compiled 296 to 142 computations (52% saved)

regimes56.0ms (0.1%)

Memory
1.6MiB live, 78.7MiB allocated
Counts
7 → 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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 (- lambda2 lambda1)) 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

20.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))))))))))
5.0ms
lambda1
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 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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
34.3%2phi2
32.3%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
32.3%1lambda1
32.3%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
32.3%1(-.f64 lambda1 lambda2)
35.8%3phi1
32.3%1R
32.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))))))))))
32.3%1lambda2
32.3%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)))))
32.3%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)))))))))
32.3%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))))))))
Compiler

Compiled 296 to 142 computations (52% saved)

regimes6.0ms (0%)

Memory
14.5MiB live, 14.5MiB 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Calls

2 calls:

2.0ms
phi1
2.0ms
phi2
Results
AccuracySegmentsBranch
35.8%3phi1
34.1%2phi2
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes35.0ms (0.1%)

Memory
-3.6MiB live, 73.2MiB 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 lambda2 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)))))) #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 lambda2 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)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))))) (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)))))) #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 lambda2 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

6.0ms
phi2
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))))))))
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)))))))))
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
30.9%3(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
26.4%1lambda2
26.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)))))))))
26.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))))))))
26.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))))))))))
30.9%3(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
30.9%3(-.f64 lambda1 lambda2)
26.4%1R
31.1%3lambda1
26.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)))))
26.4%1phi2
26.4%1phi1
Compiler

Compiled 296 to 142 computations (52% saved)

regimes9.0ms (0%)

Memory
-14.8MiB live, 24.5MiB allocated
Accuracy

Total -6.4b remaining (-13.7%)

Threshold costs -6.4b (-13.7%)

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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Calls

5 calls:

2.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
2.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
2.0ms
lambda1
1.0ms
(-.f64 lambda1 lambda2)
1.0ms
phi1
Results
AccuracySegmentsBranch
26.4%1phi1
26.4%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
26.4%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
26.4%1(-.f64 lambda1 lambda2)
26.4%1lambda1
Compiler

Compiled 41 to 33 computations (19.5% saved)

bsearch6.0ms (0%)

Memory
10.6MiB live, 10.6MiB allocated
Algorithm
2×left-value
Steps
TimeLeftRight
0.0ms
0.10844361533600205
0.11213062956868865
0.0ms
-0.25577175628085136
-0.21062350589171328
Compiler

Compiled 58 to 35 computations (39.7% saved)

bsearch3.0ms (0%)

Memory
6.2MiB live, 6.2MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
5.288243696627969e-59
0.0002189516716964246
Compiler

Compiled 46 to 35 computations (23.9% saved)

bsearch4.0ms (0%)

Memory
7.7MiB live, 7.7MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
2.121944450734182e+282
7.089305262045405e+282
Compiler

Compiled 73 to 34 computations (53.4% saved)

bsearch2.0ms (0%)

Memory
3.6MiB live, 3.6MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
5.288243696627969e-59
0.0002189516716964246
Compiler

Compiled 46 to 35 computations (23.9% saved)

bsearch3.0ms (0%)

Memory
-35.9MiB live, 3.4MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
7.272031144479491e-30
0.014797555659891238
Compiler

Compiled 73 to 35 computations (52.1% saved)

bsearch1.0ms (0%)

Memory
2.0MiB live, 2.0MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
5.288243696627969e-59
0.0002189516716964246
Compiler

Compiled 46 to 35 computations (23.9% saved)

bsearch1.0ms (0%)

Memory
1.7MiB live, 1.7MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
5.288243696627969e-59
0.0002189516716964246
Compiler

Compiled 46 to 35 computations (23.9% saved)

bsearch302.0ms (0.6%)

Memory
7.4MiB live, 362.1MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
135.0ms
972569113108390.1
2.2120456562766686e+37
148.0ms
-2761.8932077041395
-6.583746005740761e-23
Samples
252.0ms301×1valid
11.0ms51×0valid
Compiler

Compiled 2 559 to 1 585 computations (38.1% saved)

Precisions
Click to see histograms. Total time spent on operations: 244.0ms
ival-sin: 77.0ms (31.6% of total)
ival-mult: 54.0ms (22.1% of total)
ival-cos: 49.0ms (20.1% of total)
adjust: 15.0ms (6.2% of total)
ival-div: 11.0ms (4.5% of total)
ival-sub: 10.0ms (4.1% of total)
ival-sqrt: 9.0ms (3.7% of total)
ival-atan2: 8.0ms (3.3% of total)
ival-pow2: 7.0ms (2.9% of total)
ival-add: 3.0ms (1.2% of total)
exact: 1.0ms (0.4% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

bsearch116.0ms (0.2%)

Memory
1.3MiB live, 158.6MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
2.0ms
972569113108390.1
2.2120456562766686e+37
87.0ms
-2761.8932077041395
-6.583746005740761e-23
Samples
78.0ms114×1valid
3.0ms14×0valid
Compiler

Compiled 2 559 to 1 552 computations (39.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 74.0ms
ival-cos: 21.0ms (28.5% of total)
ival-sin: 19.0ms (25.7% of total)
ival-mult: 8.0ms (10.8% of total)
adjust: 6.0ms (8.1% of total)
ival-pow2: 5.0ms (6.8% of total)
ival-sub: 4.0ms (5.4% of total)
ival-sqrt: 3.0ms (4.1% of total)
ival-div: 3.0ms (4.1% of total)
ival-atan2: 3.0ms (4.1% of total)
ival-add: 1.0ms (1.4% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch223.0ms (0.4%)

Memory
37.4MiB live, 153.8MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
94.0ms
0.6280082394415412
117.33630101679482
119.0ms
-1.0908240271332117e+26
-5.922093924460393e+23
Samples
197.0ms201×1valid
5.0ms23×0valid
Compiler

Compiled 1 683 to 1 000 computations (40.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 190.0ms
ival-cos: 65.0ms (34.2% of total)
ival-sin: 46.0ms (24.2% of total)
ival-sub: 32.0ms (16.8% of total)
ival-mult: 14.0ms (7.4% of total)
adjust: 10.0ms (5.3% of total)
ival-sqrt: 6.0ms (3.2% of total)
ival-atan2: 6.0ms (3.2% of total)
ival-pow2: 5.0ms (2.6% of total)
ival-div: 5.0ms (2.6% 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)

bsearch51.0ms (0.1%)

Memory
-39.4MiB live, 3.4MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
0.6280082394415412
117.33630101679482
49.0ms
-1.0908240271332117e+26
-5.922093924460393e+23
Compiler

Compiled 1 641 to 972 computations (40.8% saved)

bsearch457.0ms (0.9%)

Memory
3.9MiB live, 172.1MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
338.0ms
297069.7719045193
972569113108390.1
106.0ms
-2761.8932077041395
-6.583746005740761e-23
Samples
420.0ms241×1valid
10.0ms47×0valid
Compiler

Compiled 2 193 to 1 314 computations (40.1% saved)

Precisions
Click to see histograms. Total time spent on operations: 325.0ms
ival-cos: 147.0ms (45.2% of total)
ival-div: 68.0ms (20.9% of total)
ival-sin: 49.0ms (15.1% of total)
ival-mult: 18.0ms (5.5% of total)
adjust: 12.0ms (3.7% of total)
ival-sub: 8.0ms (2.5% of total)
ival-sqrt: 7.0ms (2.2% of total)
ival-atan2: 7.0ms (2.2% of total)
ival-pow2: 6.0ms (1.8% of total)
ival-add: 2.0ms (0.6% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch449.0ms (0.9%)

Memory
33.4MiB live, 412.5MiB allocated
Algorithm
3×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
0.0ms
9.230857145918952e-10
9.57113379152669e-10
164.0ms
4.24338119564999e-201
3.8393559107268317e-199
269.0ms
-1.7154058868598358e-16
-2.121294379069849e-31
Samples
411.0ms226×1valid
8.0ms46×0valid
Compiler

Compiled 1 868 to 1 149 computations (38.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 406.0ms
ival-sin: 177.0ms (43.6% of total)
ival-cos: 136.0ms (33.5% of total)
ival-mult: 45.0ms (11.1% of total)
adjust: 11.0ms (2.7% of total)
ival-sub: 8.0ms (2% of total)
ival-sqrt: 8.0ms (2% of total)
ival-div: 7.0ms (1.7% of total)
ival-atan2: 6.0ms (1.5% of total)
ival-pow2: 5.0ms (1.2% of total)
ival-add: 2.0ms (0.5% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch303.0ms (0.6%)

Memory
3.0MiB live, 448.3MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
162.0ms
0.0017459860813220144
0.6280082394415412
127.0ms
-2.5128878717998818e+35
-2.093883869856173e+31
Samples
270.0ms240×1valid
3.0ms16×0valid
Compiler

Compiled 1 673 to 1 010 computations (39.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 257.0ms
ival-sin: 77.0ms (29.9% of total)
ival-cos: 63.0ms (24.5% of total)
ival-sub: 39.0ms (15.2% of total)
ival-pow2: 28.0ms (10.9% of total)
ival-mult: 17.0ms (6.6% of total)
adjust: 12.0ms (4.7% of total)
ival-sqrt: 7.0ms (2.7% of total)
ival-div: 6.0ms (2.3% of total)
ival-atan2: 6.0ms (2.3% 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)

bsearch27.0ms (0.1%)

Memory
-14.1MiB live, 60.2MiB allocated
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
25.0ms
-2761.8932077041395
-6.583746005740761e-23
Samples
20.0ms24×1valid
1.0ms8×0valid
Compiler

Compiled 1 129 to 672 computations (40.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 20.0ms
ival-cos: 6.0ms (29.8% of total)
ival-sin: 5.0ms (24.9% of total)
adjust: 3.0ms (14.9% of total)
ival-mult: 2.0ms (9.9% of total)
ival-sub: 1.0ms (5% of total)
ival-div: 1.0ms (5% of total)
ival-pow2: 1.0ms (5% of total)
ival-sqrt: 1.0ms (5% of total)
ival-atan2: 1.0ms (5% of total)
ival-assert: 0.0ms (0% of total)
ival-add: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch49.0ms (0.1%)

Memory
11.4MiB live, 98.2MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
45.0ms
0.0017459860813220144
0.6280082394415412
1.0ms
-2.5128878717998818e+35
-2.093883869856173e+31
Samples
39.0ms55×1valid
2.0ms9×0valid
Compiler

Compiled 1 577 to 962 computations (39% saved)

Precisions
Click to see histograms. Total time spent on operations: 37.0ms
ival-sin: 13.0ms (35.1% of total)
ival-cos: 8.0ms (21.6% of total)
ival-mult: 5.0ms (13.5% of total)
adjust: 3.0ms (8.1% of total)
ival-sub: 2.0ms (5.4% of total)
ival-sqrt: 2.0ms (5.4% of total)
ival-div: 2.0ms (5.4% of total)
ival-atan2: 2.0ms (5.4% of total)
ival-pow2: 1.0ms (2.7% of total)
ival-add: 1.0ms (2.7% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch274.0ms (0.5%)

Memory
-3.9MiB live, 353.4MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
130.0ms
2243916679968.0166
6.414975360349285e+24
104.0ms
-12.250027011808431
-9.593010822615324e-7
Samples
206.0ms242×1valid
12.0ms62×0valid
Compiler

Compiled 1 973 to 1 212 computations (38.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 203.0ms
ival-cos: 51.0ms (25.1% of total)
ival-sin: 50.0ms (24.6% of total)
ival-mult: 35.0ms (17.2% of total)
ival-add: 13.0ms (6.4% of total)
ival-sub: 12.0ms (5.9% of total)
adjust: 12.0ms (5.9% of total)
ival-div: 9.0ms (4.4% of total)
ival-sqrt: 7.0ms (3.4% of total)
ival-atan2: 7.0ms (3.4% of total)
ival-pow2: 6.0ms (3% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

simplify204.0ms (0.4%)

Memory
7.2MiB live, 85.2MiB allocated
Algorithm
1×egg-herbie
Rules
2 066×unsub-neg_binary64
1 104×neg-mul-1_binary64
850×distribute-lft-neg-in_binary64
500×distribute-neg-out_binary64
430×distribute-lft-neg-out_binary64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
04294753
16434753
28374753
39914753
411234753
512084753
614734753
726314753
838554753
939334753
1040634753
1142024753
1243274753
1344274753
1445364753
1545954753
1646434753
1746714753
1846814753
1947134753
2047144753
2147144753
2247144753
Stop Event
1×saturated
Calls
Call 1
Inputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (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 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -1/4 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.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))) (if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 7926335344172073/72057594037927936 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (*.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 (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.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)) (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 (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)))))))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 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 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 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.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))))
(if (<=.f64 (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 4000000000000000131128983931448392994282821132085974257053334309763770412789497343711737514689647172215269990327296603274806538707642782783975964405172170084499115216982480263261093089420598385961314195650041202516370405569779342608523794259304018488315142707243420422805058800844800 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (fma.f64 #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 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 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 lambda2 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 (/.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 #s(literal 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 7136238463529799/713623846352979940529142984724747568191373312 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 lambda2 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 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 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 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 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64))))
(if (<=.f64 phi2 #s(literal -1983393922805251/4722366482869645213696 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))) (if (<=.f64 phi2 #s(literal 980000000000000 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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -4722366482869645/295147905179352825856 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 980000000000000 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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -600000000000000016777216 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.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))) (fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 5854679515581645/9007199254740992 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -600000000000000016777216 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 5854679515581645/9007199254740992 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -5534023222112865/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 300000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda2 #s(literal -215500602038799/1267650600228229401496703205376 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda2 #s(literal 5170923996658113/344728266443874206170545512964432112225507069317819522056079337263512430464013488758041250121488036739611555846958495676040441511948045769973944468809441663382665538511073745187088876036706973599091474545756168257536 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda2 #s(literal 4593918114535591/4835703278458516698824704 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (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 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))))))
(if (<=.f64 phi1 #s(literal -22000000000000001000411699871744 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 7148113328562451/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (cos.f64 lambda1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(if (<=.f64 phi2 #s(literal -2824657686286775/1152921504606846976 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))))
(if (<=.f64 phi1 #s(literal -22000000000000001000411699871744 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 5418731071652181/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda1 #s(literal -607985949695017/2251799813685248 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 2300000000000 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 lambda2 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 (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)))))) (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 (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 (*.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 (fma.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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.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))))) #s(literal 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))))))) #s(literal 2 binary64)) R)
(if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -1/4 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.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))) (if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 7926335344172073/72057594037927936 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)) #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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 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 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))))
(if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -1/4 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (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 (-.f64 (+.f64 (*.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)) (*.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))))))) (if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 7926335344172073/72057594037927936 binary64)) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 #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))) (pow.f64 (fma.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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.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))))) #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 2 binary64)) R) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (/.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)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.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))))) #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 2 binary64)) R)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 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 (fma.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 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (*.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 (+.f64 (pow.f64 (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))))) #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 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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))))) #s(literal 2 binary64)) R)
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.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)) (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 (fma.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 (-.f64 #s(literal 1 binary64) (fma.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)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (-.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 (atan2.f64 (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 (fma.f64 (-.f64 (cos.f64 (-.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) #s(literal 2 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.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)))) #s(literal 2 binary64))) #s(literal 4 binary64))))) #s(literal 2 binary64)) R)
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 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 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 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.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))))
(if (<=.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))))) #s(literal 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 binary64)) (*.f64 (*.f64 (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 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 2 binary64)) R) (*.f64 (*.f64 #s(literal 2 binary64) R) (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 (-.f64 (+.f64 (*.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)) (*.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))))))))
(if (<=.f64 (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 4000000000000000131128983931448392994282821132085974257053334309763770412789497343711737514689647172215269990327296603274806538707642782783975964405172170084499115216982480263261093089420598385961314195650041202516370405569779342608523794259304018488315142707243420422805058800844800 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (fma.f64 #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 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))))
(if (<=.f64 (*.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 (-.f64 #s(literal 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 2 binary64)) R) #s(literal 4000000000000000131128983931448392994282821132085974257053334309763770412789497343711737514689647172215269990327296603274806538707642782783975964405172170084499115216982480263261093089420598385961314195650041202516370405569779342608523794259304018488315142707243420422805058800844800 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 (-.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))))) #s(literal 2 binary64)) R) (*.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 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.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 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)))
(*.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 (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 (-.f64 (+.f64 (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.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 2 binary64) R))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 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 lambda2 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 (/.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 #s(literal 2 binary64))))
(if (<=.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))))) #s(literal 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 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)) (-.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 #s(literal 1/2 binary64) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (*.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 (/.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 #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 7136238463529799/713623846352979940529142984724747568191373312 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 lambda2 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 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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 7136238463529799/713623846352979940529142984724747568191373312 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)) (-.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 #s(literal 1/2 binary64) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/4 binary64)) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (+.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) R))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 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 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 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
(if (<=.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))))) #s(literal 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 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)) (-.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 #s(literal 1/2 binary64) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (+.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) R))
(if (<=.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64))))
(if (<=.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))))) #s(literal 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 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)) (-.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 #s(literal 1/2 binary64) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 2 binary64) R)))
(if (<=.f64 phi2 #s(literal -1983393922805251/4722366482869645213696 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) (+.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))) (if (<=.f64 phi2 #s(literal 980000000000000 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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -1983393922805251/4722366482869645213696 binary64)) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (/ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1)))) 2)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/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) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (+.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) R) (if (<=.f64 phi2 #s(literal 980000000000000 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)) (-.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 #s(literal 1/2 binary64) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (*.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 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi2 #s(literal -4722366482869645/295147905179352825856 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 980000000000000 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 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -4722366482869645/295147905179352825856 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 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi2 #s(literal 980000000000000 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)) (-.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 #s(literal 1/2 binary64) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (*.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 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi1 #s(literal -600000000000000016777216 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.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))) (fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 5854679515581645/9007199254740992 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -600000000000000016777216 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 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) 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 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi1 #s(literal 5854679515581645/9007199254740992 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 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 #s(literal 2 binary64) R)) (*.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 #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi1 #s(literal -600000000000000016777216 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.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 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 5854679515581645/9007199254740992 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -600000000000000016777216 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.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 (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 #s(literal 1/2 binary64) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi1 #s(literal 5854679515581645/9007199254740992 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 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 #s(literal 2 binary64) R)) (*.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 #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi2 #s(literal -5534023222112865/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 300000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -5534023222112865/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #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 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi2 #s(literal 300000 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 #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.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 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 lambda2 #s(literal -215500602038799/1267650600228229401496703205376 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda2 #s(literal 5170923996658113/344728266443874206170545512964432112225507069317819522056079337263512430464013488758041250121488036739611555846958495676040441511948045769973944468809441663382665538511073745187088876036706973599091474545756168257536 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda2 #s(literal 4593918114535591/4835703278458516698824704 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (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 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))))))
(if (<=.f64 lambda2 #s(literal -215500602038799/1267650600228229401496703205376 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 #s(literal 1/2 binary64) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 lambda2 #s(literal 5170923996658113/344728266443874206170545512964432112225507069317819522056079337263512430464013488758041250121488036739611555846958495676040441511948045769973944468809441663382665538511073745187088876036706973599091474545756168257536 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #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 #s(literal 1/2 binary64) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 lambda2 #s(literal 4593918114535591/4835703278458516698824704 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #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 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.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 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 #s(literal 1/2 binary64) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)))))
(if (<=.f64 phi1 #s(literal -22000000000000001000411699871744 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 7148113328562451/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -22000000000000001000411699871744 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi1 #s(literal 7148113328562451/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #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 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.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(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (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)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda2 lambda1)) 1/2))))) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 lambda1) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 2 binary64) R))
(if (<=.f64 phi2 #s(literal -2824657686286775/1152921504606846976 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 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) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))))
(if (<=.f64 phi2 #s(literal -2824657686286775/1152921504606846976 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.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(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)))
(if (<=.f64 phi1 #s(literal -22000000000000001000411699871744 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.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 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 5418731071652181/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 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 lambda2 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -22000000000000001000411699871744 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi1 #s(literal 5418731071652181/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 lambda1 #s(literal -607985949695017/2251799813685248 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 2300000000000 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 lambda2 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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda1 #s(literal -607985949695017/2251799813685248 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 lambda1 #s(literal 2300000000000 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 (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 #s(literal 1/2 binary64) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 (- lambda2 lambda1)) 1/2))))) (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 #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 (- lambda2 lambda1)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 2 binary64) R))

soundness2.7s (5.2%)

Memory
-193.4MiB live, 2 010.1MiB allocated
Rules
13 566×lower-fma.f64
13 566×lower-fma.f32
11 600×lower-fma.f64
11 600×lower-fma.f32
9 660×lower-fma.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03967655
112627612
240577506
080167178
093214367
1296513816
0881313198
026153
045153
1149133
2997129
08852127
0104727729
1344327524
0812826167
0132730
0229646
1849538
27487538
08062510
0126659
0220647
1715446
25174444
08139431
0133628622
1457028316
0847726744
084370
0146298
1478279
23401272
08151256
Stop Event
1×fuel
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×node limit
1×iter limit
1×iter limit
1×node limit
1×iter limit
1×node limit
Compiler

Compiled 9 373 to 3 343 computations (64.3% saved)

preprocess272.0ms (0.5%)

Memory
-37.6MiB live, 374.7MiB allocated
Remove

(negabs R)

Compiler

Compiled 8 098 to 1 566 computations (80.7% saved)

end0.0ms (0%)

Memory
0.0MiB live, 0.0MiB allocated

Profiling

Loading profile data...