Metrics for Distance on a great circle

start0.0ms (0%)

Memory: 0.3MiB live, 0.3MiB allocated

analyze1.1s (2.5%)

Memory

22.7MiB live, 1 136.1MiB allocated

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
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.2s (22.1%)

Memory

5.5MiB live, 8 179.7MiB allocated

Samples

8.1s	7 343×	1	valid
227.0ms	913×	0	valid

Precisions

Click to see histograms. Total time spent on operations: 7.8s

ival-cos: 2.9s (37.5% of total)

ival-sin: 2.0s (26.3% of total)

ival-mult: 758.0ms (9.8% of total)

adjust: 401.0ms (5.2% of total)

ival-sqrt: 370.0ms (4.8% of total)

ival-sub: 366.0ms (4.7% of total)

ival-pow2: 297.0ms (3.8% of total)

ival-div: 240.0ms (3.1% of total)

ival-atan2: 220.0ms (2.8% of total)

ival-add: 139.0ms (1.8% of total)

exact: 11.0ms (0.1% of total)

ival-true: 8.0ms (0.1% of total)

ival-assert: 5.0ms (0.1% of total)

Bogosity

explain974.0ms (2.3%)

Memory

4.8MiB live, 890.9MiB allocated

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
80	113	(-7.021829529206892e-302 -6.729316159576887e+304 4.253000033097617e-180 6.822713170777939e-121 -4.922833756007916e+179)	0	-	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
77	117	(-7.021829529206892e-302 -6.729316159576887e+304 4.253000033097617e-180 6.822713170777939e-121 -4.922833756007916e+179)	0	-	`(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))`
8	2	(9.971818784454525e+252 3.4053521803295294e+98 2.832205257306264e-159 8.255916204667213e+272 6.393601771088588e+151)	3	(-441385164835700.56 5.135891852500217e+169 -1.6558751291143116e-13 1882.0927552238516 1.5219467013135318e+97)	`(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))`
1	0	-	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))))))`
0	0	-	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))))`
0	0	-	0	-	`lambda2`
0	0	-	0	-	`#s(literal 1 binary64)`
0	0	-	0	-	`phi2`
0	0	-	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))))))))
0	0	-	0	-	`(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))`
0	0	-	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)))))))))
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (cos.f64 phi2))`
0	0	-	0	-	`(-.f64 lambda1 lambda2)`
0	0	-	0	-	`R`
0	0	-	0	-	`(cos.f64 phi2)`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
0	0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))`
0	0	-	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)))))))`
0	0	-	0	-	`#s(literal 2 binary64)`
0	0	-	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))))))))))
0	0	-	0	-	`(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))`
0	0	-	0	-	`(-.f64 phi1 phi2)`
0	0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`sin.f64`	`(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))`	sensitivity	194	0
`sin.f64`	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`	sensitivity	193	0
`-.f64`	`(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))`	cancellation	7	10
`sqrt.f64`	`(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))`	uflow-rescue	1	0
↳	`(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))`	underflow	14
↳	`(.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))`	underflow	14
↳	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`	underflow	1

Confusion

	Predicted +	Predicted -
+	129	0
-	108	19

Precision

0.5443037974683544

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	129	0	0
-	108	0	19

Precision?

0.5443037974683544

Recall?

1.0

Freqs

test

number	freq
0	19
1	81
2	154
3	2

Total Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	0	0
-	0	0	0

Precision?

1.0

Recall?

1.0

Samples

537.0ms	458×	1	valid
11.0ms	54×	0	valid

Compiler

Compiled 1 239 to 108 computations (91.3% saved)

Precisions

Click to see histograms. Total time spent on operations: 489.0ms

ival-cos: 140.0ms (28.6% of total)

ival-sin: 136.0ms (27.8% of total)

ival-mult: 101.0ms (20.7% of total)

ival-div: 30.0ms (6.1% of total)

adjust: 23.0ms (4.7% of total)

ival-sub: 16.0ms (3.3% of total)

ival-sqrt: 14.0ms (2.9% of total)

ival-atan2: 12.0ms (2.5% of total)

ival-pow2: 11.0ms (2.2% of total)

ival-add: 5.0ms (1% of total)

ival-true: 1.0ms (0.2% of total)

exact: 1.0ms (0.2% of total)

ival-assert: 0.0ms (0% of total)

preprocess385.0ms (0.9%)

Memory

2.5MiB live, 155.6MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	233	1311
1	544	1304
2	1353	1304
3	3532	1280
4	6186	1272
0	26	65
0	45	65
1	74	65
2	132	65
3	273	65
4	523	65
5	873	65
6	1345	65
7	1637	65
8	2167	65
9	2949	65
10	4120	65
11	4386	65
12	4527	65
13	4587	65
14	4611	65
15	4780	65
16	5221	65
17	5310	65
18	5310	65
19	5318	65
20	6371	65
0	8561	63

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 65 to 26 computations (60% saved)

eval0.0ms (0%)

Memory: 0.3MiB live, 0.3MiB allocated
Compiler: Compiled 0 to 5 computations (-∞% saved)

prune1.0ms (0%)

Memory

0.9MiB live, 0.9MiB allocated

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	59.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))))))))))

Status

Accuracy

Program

▶

59.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 65 to 26 computations (60% saved)

simplify328.0ms (0.8%)

Memory

5.6MiB live, 163.8MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 4 expressions of interest:

New	Metric	Score
cost-diff	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))))))))))
cost-diff	128	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	384	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff	384	(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	26	390
0	45	390
1	74	390
2	132	390
3	273	390
4	523	390
5	873	390
6	1345	390
7	1637	390
8	2167	390
9	2949	390
10	4120	390
11	4386	390
12	4527	390
13	4587	390
14	4611	390
15	4780	390
16	5221	390
17	5310	390
18	5310	390
19	5318	390
20	6371	390
0	8561	380

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)

localize318.0ms (0.8%)

Memory

-23.1MiB live, 387.6MiB allocated

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.40072250976844204	(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
accuracy	0.8220117650827482	(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy	16.207891287898896	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Samples

270.0ms	229×	1	valid
5.0ms	27×	0	valid

Compiler

Compiled 782 to 54 computations (93.1% saved)

Precisions

Click to see histograms. Total time spent on operations: 249.0ms

ival-cos: 86.0ms (34.5% of total)

ival-sin: 69.0ms (27.7% of total)

adjust: 39.0ms (15.7% of total)

ival-mult: 18.0ms (7.2% of total)

ival-sub: 8.0ms (3.2% of total)

ival-pow2: 7.0ms (2.8% of total)

ival-sqrt: 7.0ms (2.8% of total)

ival-div: 6.0ms (2.4% of total)

ival-atan2: 6.0ms (2.4% 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)

series59.0ms (0.1%)

Memory

31.4MiB live, 108.3MiB allocated

Counts

8 → 276

Calls

Call 1

Inputs
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))

Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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)))))))
(* -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 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)))
(* -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 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)

Calls

15 calls:

Time	Variable		Point	Expression
7.0ms	lambda2	@	-inf	((/ (- phi1 phi2) 2) (/ (- lambda1 lambda2) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2))
6.0ms	lambda1	@	inf	((/ (- phi1 phi2) 2) (/ (- lambda1 lambda2) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2))
6.0ms	lambda1	@	-inf	((/ (- phi1 phi2) 2) (/ (- lambda1 lambda2) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2))
5.0ms	phi1	@	inf	((/ (- phi1 phi2) 2) (/ (- lambda1 lambda2) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2))
5.0ms	phi2	@	-inf	((/ (- phi1 phi2) 2) (/ (- lambda1 lambda2) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2))

simplify206.0ms (0.5%)

Memory

7.9MiB live, 281.9MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	396	7655
1	1262	7612
2	4048	7506
0	8015	7178

Stop Event

1×	iter limit
1×	node limit

Counts

276 → 276

Calls

Call 1

Inputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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)))))))
(* -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 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)))
(* -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 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)

Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (sin (* 1/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 (sin (* 1/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 lambda2)
(*.f64 #s(literal -1/2 binary64) lambda2)
(+ (* -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 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) lambda1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)))) 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 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)))))))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (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 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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 #s(literal -1/2 binary64) lambda2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1 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 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) lambda1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) 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) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) (.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 #s(literal -1/2 binary64) lambda2)))) 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 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) #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 #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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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)))))))
(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 #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)
(* -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 #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 (+ 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 #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 (+ 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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 (cos.f64 phi1) (fma.f64 (neg.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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 #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 (.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 (neg.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.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) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) lambda2 (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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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)))))))
(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 #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))) (* -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 (.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)) (fma.f64 lambda2 (.f64 #s(literal 1/48 binary64) lambda2) #s(literal -1/2 binary64)))) lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) lambda2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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 #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 (.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 (- (* 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 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.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) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) lambda2 (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 #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/2 lambda2)
(*.f64 #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)
(* 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 #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)))))))
(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 #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)
(* -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 #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)))))))
(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))))
(* -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 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/6 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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)))))))
(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 #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 (.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)) (fma.f64 phi1 (.f64 #s(literal -1/48 binary64) phi1) #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 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 #s(literal -1 binary64) (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))) #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 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) phi1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #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 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (neg.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/6 binary64)) (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 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #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 #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 phi1 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 (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 phi1 phi1) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal -1/6 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (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)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(+ (* (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)))))))
(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 #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)
(* -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 #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 (+ 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 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 #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 (+ 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 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 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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))
(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 1/6 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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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)))))))
(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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (.f64 #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))) (* -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 (.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)) (fma.f64 phi2 (.f64 #s(literal 1/48 binary64) phi2) #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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (+ 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ 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 #s(literal 1/2 binary64) phi1)) phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 1/6 binary64)) (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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(pow (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))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (* 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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 1/6 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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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)))))))
(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 #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)
(* -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 #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)))))))
(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))

rewrite281.0ms (0.7%)

Memory

-4.0MiB live, 317.0MiB allocated

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	26	153
0	45	153
1	149	133
2	997	129
0	8852	127

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 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(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)) (pow.f64 (+.f64 phi2 phi1) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64)))) #s(literal -1 binary64)) (pow.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1)) #s(literal -1 binary64)))
(*.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal -1 binary64)) #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 (pow.f64 phi1 #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 phi2 #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (.f64 (pow.f64 phi1 #s(literal 3 binary64)) #s(literal 1/8 binary64)) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 phi2 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 phi2 phi1) #s(literal 4 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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) #s(literal 1/2 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1)))
(/.f64 (-.f64 (pow.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 phi2 #s(literal 1/2 binary64)) #s(literal 2 binary64))) (fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 phi1 #s(literal 3 binary64)) #s(literal 1/8 binary64)) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 (pow.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 phi2 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 phi2 phi1) #s(literal 4 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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64)))) (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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (.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 (pow.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (fma.f64 phi1 #s(literal 1/2 binary64) (.f64 phi2 #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 phi2 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (fma.f64 phi1 #s(literal 1/2 binary64) (.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (.f64 (pow.f64 phi1 #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 phi2 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 phi2 phi1) #s(literal 4 binary64))))) (/.f64 (.f64 (pow.f64 phi2 #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (.f64 phi1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 phi2 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 phi2 phi1) #s(literal 4 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 (pow.f64 phi1 #s(literal 3 binary64)) (.f64 #s(literal 2 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1)))) (/.f64 (pow.f64 phi2 #s(literal 3 binary64)) (.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 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1))) #s(literal 2 binary64)) (/.f64 (/.f64 (pow.f64 phi2 #s(literal 3 binary64)) (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)) (pow.f64 (+.f64 lambda2 lambda1) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) #s(literal -1 binary64)) (pow.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)) #s(literal -1 binary64)))
(*.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (pow.f64 (-.f64 lambda1 lambda2) #s(literal -1 binary64)) #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 (pow.f64 lambda1 #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 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 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(literal 1/8 binary64)) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 lambda2 lambda1) #s(literal 4 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 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(literal 1/2 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))
(/.f64 (-.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 2 binary64))) (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(literal 1/8 binary64)) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 lambda2 lambda1) #s(literal 4 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 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) (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 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (.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 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 lambda2 lambda1) #s(literal 4 binary64))))) (/.f64 (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 lambda2 lambda1) #s(literal 4 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 (pow.f64 lambda1 #s(literal 3 binary64)) (.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))) (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (.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 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1))) #s(literal 2 binary64)) (/.f64 (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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)))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))) (pow.f64 (fma.f64 (.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 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) #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))))
(.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))) #s(literal 1 binary64))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.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 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (.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))) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64))) (.f64 (.f64 (.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))) #s(literal 1 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (.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))) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 (.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))) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64))) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 #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)))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 #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)))) (.f64 #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)))) (-.f64 (.f64 (.f64 #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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 #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)))) (.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 #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)))) #s(literal 3 binary64))) (fma.f64 (.f64 #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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 #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)))) (.f64 #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))))) (.f64 (.f64 #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 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 4 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (neg.f64 (.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (-.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 (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 (neg.f64 (neg.f64 (-.f64 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))))) (neg.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (neg.f64 (neg.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 12 binary64)) (pow.f64 (.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))) #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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.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 (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 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 4 binary64)) (.f64 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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 (.f64 (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 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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)))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 #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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 (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 (neg.f64 (-.f64 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (neg.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (.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 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.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 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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)))
(fma.f64 #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))) (.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(fma.f64 #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (.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))) #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 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))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 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)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (.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))) #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 (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 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.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 #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 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 (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 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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 (.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))) #s(literal 1 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(+.f64 (.f64 #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)))) (.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+.f64 (.f64 #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (.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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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))))))) #s(literal 2 binary64))
(.f64 (.f64 R #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))
(.f64 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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)))
(.f64 #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) R))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1 binary64)))
(.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
(exp.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (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))) (pow.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 -1 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (pow.f64 (fma.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 #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)) #s(literal -1 binary64)))
(pow.f64 (/.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) (pow.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))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.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 #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 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 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 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 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 (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.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)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (neg.f64 (.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)))) (neg.f64 (.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (neg.f64 (.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 (fma.f64 #s(literal -1 binary64) (pow.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))) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (pow.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))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (neg.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)))) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))))) (neg.f64 (+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (neg.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))))) (neg.f64 (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))))) (neg.f64 (neg.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 (neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.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 #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 (.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 4 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (pow.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))) #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))))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 6 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.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))) #s(literal 4 binary64)) (pow.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))) #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))))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 6 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (fma.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 #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 (.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 9 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.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))) #s(literal 6 binary64)) (pow.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))) #s(literal 3 binary64)))) (fma.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 #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 (-.f64 (.f64 #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))))) (.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)))) (pow.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))) #s(literal 2 binary64)))) (.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) (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 #s(literal 1 binary64) (fma.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 #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 (fma.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 #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)) (pow.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))) #s(literal 3 binary64)))) (.f64 (fma.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 #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)) (fma.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 #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 (-.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (+.f64 #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)))
(/.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (neg.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 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))) (neg.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 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.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))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (neg.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 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))) (neg.f64 (fma.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 #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 #s(literal -1 binary64) (neg.f64 (/.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) (pow.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))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.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 #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 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (neg.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 (-.f64 #s(literal 1 binary64) (pow.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))) #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)))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.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))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (neg.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 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (fma.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 #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 #s(literal 1 binary64) (/.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) (pow.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))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.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 #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 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))))
(fma.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))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -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 -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -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 -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (neg.f64 (.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 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))) (+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (neg.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 (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)) (-.f64 #s(literal 1 binary64) (neg.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 (/.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 #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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(-.f64 (pow.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 -1 binary64)) (/.f64 (pow.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))) #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))))))
(-.f64 (pow.f64 (fma.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 #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)) #s(literal -1 binary64)) (/.f64 (pow.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))) #s(literal 3 binary64)) (fma.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 #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 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (neg.f64 (.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 (neg.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)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.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 (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 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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 #s(literal 0 binary64) (/.f64 #s(literal 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 #s(literal 0 binary64) (/.f64 #s(literal 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)))

eval267.0ms (0.6%)

Memory: 12.6MiB live, 319.4MiB allocated
Compiler: Compiled 92 093 to 4 934 computations (94.6% saved)

prune418.0ms (1%)

Memory

-4.1MiB live, 479.1MiB allocated

Pruning

80 alts after pruning (80 fresh and 0 done)

	Pruned	Kept	Total
New	1 036	80	1 116
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	1 037	80	1 117

Accuracy

63.1%

Counts

1 117 → 80

Alt Table

Click to see full alt table

Status	Accuracy	Program
	59.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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	58.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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))))))))))
	56.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.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))) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (.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))) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64))) (.f64 (.f64 (.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))) #s(literal 1 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #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))))))))))
	53.9%	(.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.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 (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 #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.5%	(.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	60.9%	(.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))))))))))
	26.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	60.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	22.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 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	59.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 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))))))
	59.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 (-.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (+.f64 #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)))))))
	59.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 (-.f64 (.f64 #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))))) (.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)))) (pow.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))) #s(literal 2 binary64)))) (.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) (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))))))))))
	59.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 (-.f64 #s(literal 1 binary64) (pow.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))) #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)))))))))
	59.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 (/.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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))))))))))))
	59.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 (-.f64 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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))))))))))
	59.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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))))))))))
▶	60.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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (.f64 #s(literal 2 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))))))))))
	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 (.f64 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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))))))))))
	47.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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))))))))))
	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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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))))))))))
	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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 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)) (pow.f64 (+.f64 lambda2 lambda1) #s(literal -1 binary64)))))))))))
	14.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 (/.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)))))))))))
	50.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
	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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
	47.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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
	39.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 (/.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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
	37.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	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 #s(literal 2 binary64) (.f64 (/.f64 #s(literal 2 binary64) phi1) phi2)) (.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.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 (/.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 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	49.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 (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))))))))))
	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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.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 #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))))))))))
	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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) 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)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.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 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	59.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 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 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.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 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 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)))) (.f64 (.f64 (*.f64 (cos.f64 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%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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)))) #s(literal -1 binary64))))))))
	47.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 (pow.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)))))))))
	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) #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)))))))))
	41.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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)))))))))
	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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	38.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
	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) #s(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)))))))))
	59.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 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (pow.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 -1 binary64)))))))
	47.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 #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 #s(literal 1/2 binary64) phi2)) #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))))))))
▶	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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	39.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 #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 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) lambda2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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)))))))
	56.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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	14.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 (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))))))))))
	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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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 #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.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	40.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	52.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.0%	(.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)) (pow.f64 (+.f64 phi2 phi1) #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))))))))))
	30.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 (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))))))))))
▶	40.9%	(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	43.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 (.f64 phi1 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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	43.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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (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.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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))))))))))
	42.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (cos.f64 phi1) (fma.f64 (neg.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	59.4%	#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))))

Compiler

Compiled 13 600 to 6 748 computations (50.4% saved)

simplify185.0ms (0.4%)

Memory

-27.1MiB live, 131.6MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	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)) (.f64 (.f64 (.f64 (cos.f64 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-diff	128	(+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	128	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
cost-diff	0	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
cost-diff	128	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	128	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
cost-diff	0	(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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-diff	0	(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	128	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	128	(+.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)))))
cost-diff	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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))
cost-diff	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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))
cost-diff	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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
cost-diff	128	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	0	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	0	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
cost-diff	128	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	128	(+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	94	2726
0	165	2726
1	244	2726
2	400	2726
3	751	2726
4	1705	2726
5	4828	2726
6	6972	2726
0	8151	2672

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Calls

Call 1

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

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

localize841.0ms (2%)

Memory

25.4MiB live, 498.7MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.40072250976844204	(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
accuracy	0.8220117650827482	(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy	16.207891287898896	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy	0.8220117650827482	(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy	16.207891287898896	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy	32.62923072088779	#s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
accuracy	16.207891287898896	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy	16.207891287898896	(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy	32.14417051124036	#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))
accuracy	16.207891287898896	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy	16.944785943866236	(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
accuracy	28.099800234810736	#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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
accuracy	0.40072250976844204	(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
accuracy	0.8220117650827482	(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy	16.207891287898896	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Samples

654.0ms	229×	1	valid
16.0ms	27×	0	valid

Compiler

Compiled 5 237 to 162 computations (96.9% saved)

Precisions

Click to see histograms. Total time spent on operations: 540.0ms

ival-cos: 160.0ms (29.6% of total)

ival-mult: 116.0ms (21.5% of total)

ival-sin: 112.0ms (20.7% of total)

ival-sub: 40.0ms (7.4% of total)

ival-pow2: 39.0ms (7.2% of total)

adjust: 27.0ms (5% of total)

ival-atan2: 17.0ms (3.1% of total)

ival-sqrt: 14.0ms (2.6% of total)

ival-add: 7.0ms (1.3% of total)

ival-div: 6.0ms (1.1% of total)

exact: 1.0ms (0.2% of total)

ival-true: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

series390.0ms (0.9%)

Memory

-82.7MiB live, 126.9MiB allocated

Counts

25 → 1 092

Calls

Call 1

Inputs
(+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (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)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (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) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (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) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)))))))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (- (* (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 (- (* (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 (- (* (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)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(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 phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(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 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 (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)))))))
(* 2 (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 (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 (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 (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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 (- (* (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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(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 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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(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 phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(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 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 (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)))))))
(* 2 (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 (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 (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 (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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 (- (* (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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(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 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))
(+ (* 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (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)))
(* -1/2 phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(- (+ 1 (* 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (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 phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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 phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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 (- (* (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 (+ phi2 (* -1 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 (+ phi2 (* -1 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 (+ phi2 (* -1 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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(* 1/2 phi1)
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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 phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (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)))
(* 1/2 phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (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 phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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 phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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 (- (* (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 (* -1 phi2)))) 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 (* -1 phi2)))) 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 (* -1 phi2)))) 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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (+ (* (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/2 phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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)))

Calls

15 calls:

Time	Variable		Point	Expression
194.0ms	lambda2	@	-inf	((+ (pow (- (* (sin (* phi1 1/2)) (cos (* 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 phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- 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))))))))) (* 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)))))))) (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))))))) (+ (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))))))))) (* 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)))))))) (+ (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))))))))) (* 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)))))))) (* 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 1/2)) (cos (* 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 (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (/ (- phi1 phi2) 2) (sin (/ (- phi1 phi2) 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))))))
61.0ms	phi2	@	-inf	((+ (pow (- (* (sin (* phi1 1/2)) (cos (* 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 phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- 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))))))))) (* 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)))))))) (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))))))) (+ (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))))))))) (* 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)))))))) (+ (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))))))))) (* 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)))))))) (* 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 1/2)) (cos (* 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 (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (/ (- phi1 phi2) 2) (sin (/ (- phi1 phi2) 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))))))
30.0ms	lambda1	@	0	((+ (pow (- (* (sin (* phi1 1/2)) (cos (* 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 phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- 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))))))))) (* 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)))))))) (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))))))) (+ (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))))))))) (* 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)))))))) (+ (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))))))))) (* 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)))))))) (* 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 1/2)) (cos (* 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 (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (/ (- phi1 phi2) 2) (sin (/ (- phi1 phi2) 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))))))
9.0ms	lambda1	@	inf	((+ (pow (- (* (sin (* phi1 1/2)) (cos (* 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 phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- 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))))))))) (* 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)))))))) (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))))))) (+ (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))))))))) (* 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)))))))) (+ (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))))))))) (* 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)))))))) (* 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 1/2)) (cos (* 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 (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (/ (- phi1 phi2) 2) (sin (/ (- phi1 phi2) 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))))))
9.0ms	lambda1	@	-inf	((+ (pow (- (* (sin (* phi1 1/2)) (cos (* 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 phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- 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))))))))) (* 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)))))))) (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))))))) (+ (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))))))))) (* 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)))))))) (+ (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))))))))) (* 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)))))))) (* 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 1/2)) (cos (* 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 (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (sin (/ (- phi1 phi2) 2)) 2) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (/ (- phi1 phi2) 2) (sin (/ (- phi1 phi2) 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))))))

simplify430.0ms (1%)

Memory

23.9MiB live, 408.0MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	501	48334
1	1558	48264
2	4897	48195
0	8919	46125

Stop Event

1×	iter limit
1×	node limit

Counts

1 092 → 1 092

Calls

Call 1

Inputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (- (* (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 (- (* (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 (- (* (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)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(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 phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(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 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 (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)))))))
(* 2 (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 (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 (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 (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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 (- (* (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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(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 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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(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 phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(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 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 (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)))))))
(* 2 (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 (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 (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 (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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 (- (* (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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (sin (* 1/2 (- phi1 phi2))) 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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(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 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))
(+ (* 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (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)))
(* -1/2 phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(- (+ 1 (* 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (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 phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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 phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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 (- (* (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 (+ phi2 (* -1 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 (+ phi2 (* -1 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 (+ phi2 (* -1 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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(* 1/2 phi1)
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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 phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (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)))
(* 1/2 phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (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 (- (* (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 (- (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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))))))
(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 (+ (* (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 phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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 phi1) (* (cos phi2) (pow (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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 (- (* (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 (* -1 phi2)))) 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 (* -1 phi2)))) 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 (* -1 phi2)))) 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 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (+ (* (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/2 phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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)))

Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (sin (* 1/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 (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (sin (* 1/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 (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (sin (* 1/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 (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(+ (* (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 #s(literal -1/2 binary64) lambda2)) #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)))
(+ (* 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 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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))))
(+ (* 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 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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))))
(+ (* 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 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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))))
(+ (* (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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (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 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) 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) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/6 binary64)) (.f64 (cos.f64 phi1) lambda1))) lambda1)) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)) 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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) 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) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/6 binary64)) (.f64 (cos.f64 phi1) lambda1))) lambda1)) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (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 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (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 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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))))
(- (+ 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)))
(-.f64 (fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 1 binary64)) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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))))
(- (+ 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 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) 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) lambda2)) #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)))))
(- (+ 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 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/6 binary64)) (.f64 (cos.f64 phi1) lambda1))) lambda1)) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)))))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.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 (- (* (cos (* 1/2 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 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 #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 (+ 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 #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 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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 #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 (+ 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 #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 (+ 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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)))
(+ (* (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 #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 (+ 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 #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 (+ 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(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 (+ (* (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))))
(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/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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (.f64 (cos.f64 phi1) lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 phi2)))) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)) (.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 (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))))
(+ (* 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 (neg.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.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)) (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 (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))))
(+ (* (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 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)) (.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 (neg.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.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)) (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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)) (.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 (neg.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.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)) (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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (.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 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1)) (.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 (neg.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.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)) (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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(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 #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))) (* -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 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 (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 (neg.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2))) (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 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 phi2))) (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 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/6 binary64)) (.f64 (cos.f64 phi1) lambda2))) lambda2)) lambda2 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #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 (+ (* (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 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 (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 (neg.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2))) (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 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 phi2))) (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 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/6 binary64)) (.f64 (cos.f64 phi1) lambda2))) lambda2)) lambda2 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #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 #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))) (* -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)))
(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 #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))) (* -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 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (.f64 (cos.f64 phi1) lambda2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 1 binary64)) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (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))))
(- (+ 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 (neg.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2))) (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 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 phi2))) (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 (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)))))
(- (+ 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 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (fma.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal -1/6 binary64)) (.f64 (cos.f64 phi1) lambda2))) lambda2)) lambda2 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 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)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (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)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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)))
(+ (* -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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1/6 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (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 phi1 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)))) (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 phi1 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 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) (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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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) (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 phi1 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)))) (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 phi1 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 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) (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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 phi1 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)))) (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 phi1 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 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) (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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(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 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal -1/8 binary64))) phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) phi1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) phi1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 #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 phi1 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 (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 phi1 phi1) (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (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)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) phi1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) phi1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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/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))
(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 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal -1/8 binary64))) phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (* (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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (* -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 (neg.f64 phi1) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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/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 (-.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1/6 binary64)) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) phi1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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))))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(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 (+ (* (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 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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)))
(+ (* (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+ 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+ 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+ 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 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 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 #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 (+ 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 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 #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 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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 #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 (+ 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 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 #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 (+ 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 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 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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)))
(+ (* (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 #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 (+ 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 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 #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 (+ 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 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 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(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 (+ (* (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))))
(* 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)) 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)
(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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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 (.f64 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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) (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) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (.f64 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(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 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) 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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) phi2 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (+ 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(pow (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) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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)))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (+ 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(* 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))
(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 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) 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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) phi2 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (+ 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ 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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(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 (+ (* (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 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))
(* 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)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 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)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (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)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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)))))) #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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 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 (- (* (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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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)))))))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(* 2 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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 (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))
(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 (+ (* (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))))
(* -1/2 phi2)
(*.f64 #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)
(* -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)
(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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))

rewrite242.0ms (0.6%)

Memory

15.3MiB live, 320.3MiB allocated

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	94	1172
0	165	1042
1	429	964
2	2686	936
0	8636	921

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Counts

25 → 391

Calls

Call 1

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

Outputs
(.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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))) (pow.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(.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))) #s(literal 1 binary64))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (fma.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)))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (fma.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))))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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))))) #s(literal 2 binary64) (.f64 (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 #s(literal 2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (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))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 #s(literal 2 binary64) (.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))))))) (.f64 #s(literal 2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (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))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (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 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 #s(literal 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 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (*.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 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (-.f64 (.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 (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 (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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (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)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal -1 binary64)) #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))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))
(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)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1 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 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (.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))) #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (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 (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 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 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(+.f64 (.f64 (.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))) #s(literal 1 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 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 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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))) (pow.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(.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))) #s(literal 1 binary64))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (fma.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)))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (fma.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))))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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))))) #s(literal 2 binary64) (.f64 (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 #s(literal 2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (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))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 #s(literal 2 binary64) (.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))))))) (.f64 #s(literal 2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (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))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (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 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 #s(literal 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 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (*.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 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (-.f64 (.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 (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 (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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.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 (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)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal -1 binary64)) #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))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))
(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)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1 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 #s(literal 1 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (.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))) #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (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 (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 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 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(+.f64 (.f64 (.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))) #s(literal 1 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 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 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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))))))) #s(literal 2 binary64))
(.f64 (.f64 R #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)) R)
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))
(.f64 R (.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)))
(.f64 #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) R))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64))
(.f64 #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))))))) #s(literal 2 binary64))
(.f64 (.f64 R #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) #s(literal 2 binary64)))
(.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))))))
(.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64))) (pow.f64 (fma.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64)))) #s(literal -1 binary64))
(/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))) (-.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (neg.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (.f64 (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64))) (fma.f64 (.f64 (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64)))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.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 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (/.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(.f64 (.f64 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 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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))))))) #s(literal 2 binary64))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (pow.f64 (fma.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) #s(literal -1 binary64))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 #s(literal 2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 #s(literal 2 binary64) (.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))))))) (.f64 #s(literal 2 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 #s(literal 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 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) #s(literal 4 binary64))
(/.f64 (fma.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)))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (fma.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))))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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))))) #s(literal 2 binary64) (.f64 (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(/.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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (neg.f64 (fma.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #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)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))
(fma.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/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)) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (/.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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))))))) #s(literal 2 binary64))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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))))))) #s(literal 2 binary64))
(.f64 (.f64 R #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)) R)
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))
(.f64 R (.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)))
(.f64 #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) R))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64))
(.f64 #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1 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 (.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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.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 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal -1 binary64)))
(.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal -1 binary64)))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (+.f64 (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 (-.f64 phi2 phi1) #s(literal 2 binary64))) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (exp.f64 (log.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (neg.f64 phi2) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (pow.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))) (neg.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (neg.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 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.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))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (neg.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 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))))
(fma.f64 #s(literal -1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (neg.f64 (.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 #s(literal 1 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)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (/.f64 (pow.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))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(-.f64 (pow.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)) (/.f64 (pow.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))) #s(literal 3 binary64)) (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64))))
(-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (neg.f64 (.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 (neg.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)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal -1 binary64)) #s(literal 2 binary64)))
(.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 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 #s(literal 2 binary64)) (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 (sin.f64 (.f64 (-.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #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)))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 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 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))))
(.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1 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 (.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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.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))))))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))
(.f64 (pow.f64 (sqrt.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1 binary64)))
(.f64 (sqrt.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))
(pow.f64 (sqrt.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))
(exp.f64 (log.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (pow.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))) (neg.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (neg.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 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.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))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (neg.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 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))))
(fma.f64 #s(literal -1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (neg.f64 (.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 #s(literal 1 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)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (/.f64 (pow.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))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(-.f64 (pow.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)) (/.f64 (pow.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))) #s(literal 3 binary64)) (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64))))
(-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (neg.f64 (.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 (neg.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)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.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)))))

eval800.0ms (1.9%)

Memory: 33.2MiB live, 1 033.8MiB allocated
Compiler: Compiled 341 772 to 8 139 computations (97.6% saved)

prune914.0ms (2.2%)

Memory

-75.5MiB live, 1 251.0MiB allocated

Pruning

167 alts after pruning (167 fresh and 0 done)

	Pruned	Kept	Total
New	3 226	127	3 353
Fresh	35	40	75
Picked	5	0	5
Done	0	0	0
Total	3 266	167	3 433

Accuracy

77.6%

Counts

3 433 → 167

Alt Table

Click to see full alt table

Status	Accuracy	Program
	59.5%	(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))
	45.1%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	48.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.9%	(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	40.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	53.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 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))))))))))
	39.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	58.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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))))))))))
	39.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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.5%	(.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #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))))))))))
	43.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	59.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
	43.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	45.3%	(.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	75.8%	(.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 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
	60.9%	(.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))))))))))
▶	75.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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	26.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	70.3%	(.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 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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.2%	(.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	60.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.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)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
▶	40.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.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)))))) #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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	61.4%	(.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 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	60.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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))))))))))
	56.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64))))))))
	61.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 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.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (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 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	75.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	75.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	70.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	60.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	49.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
	39.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	39.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #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))))))))))
	46.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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))))))))))
▶	49.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- 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)))))))))
	46.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) #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)))))))))
	47.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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)))))))))
	49.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	43.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
	39.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
	49.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	33.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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	22.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 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	44.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	59.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 (-.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (+.f64 #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)))))))
	59.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 (/.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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))))))))))))
	59.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 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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))))))))))
	60.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)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	23.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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (.f64 #s(literal 2 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))))))))))
	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 (.f64 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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))))))))))
	47.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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))))))))))
	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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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))))))))))
	14.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 (/.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)))))))))))
	50.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
	39.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 (/.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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
	37.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	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 #s(literal 2 binary64) (.f64 (/.f64 #s(literal 2 binary64) phi1) phi2)) (.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.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 (/.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 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	49.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 (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))))))))))
	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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.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 1/2)) (cos (* 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)))))))))
	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) #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)))))))))
	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 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 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))
	48.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)))))))))
	41.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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)))))))))
	38.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
	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) #s(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)))))))))
	47.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 #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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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))))))))
	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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (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))))) #s(literal 2 binary64)) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	27.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	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)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
	37.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	39.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 #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 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) lambda2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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)))))))
	56.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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	14.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 (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))))))))))
	22.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)))) (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	30.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (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))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	31.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
	34.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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)))))))))
	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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 (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))))))))))
	34.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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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))))))))
	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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	33.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	34.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	41.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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	52.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 (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))))))))))
	40.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.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)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.3%	(.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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	40.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	40.9%	(.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 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	29.2%	(.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 (fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64))))))))
	36.4%	(.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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64))))))))
	41.4%	(.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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
	41.4%	(.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 (fma.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)))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))))
	40.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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))))))))))
	40.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))))))))
	41.5%	(.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 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 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.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) (+.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	41.9%	(.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 (fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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) (+.f64 (pow.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	33.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) (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	40.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	32.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
	33.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
	40.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	28.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) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.9%	(.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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))))))))))
	29.3%	(.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 (pow.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)))))))))
	41.3%	(.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 (pow.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)))))))))
	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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	40.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64)))))))
	29.3%	(.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 #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 #s(literal -1/2 binary64) phi2)) #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))))))))
	41.3%	(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	29.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	43.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	45.3%	(.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 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	47.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 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
	28.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	53.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
	38.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	58.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	57.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	44.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	44.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (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 (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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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))))))))))
	31.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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))))))))))
▶	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 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	41.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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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))))))))))
	40.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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	30.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 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)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	43.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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	46.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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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.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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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))))))))))
	35.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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
▶	40.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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))))))))))
	42.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	28.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 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	60.9%	(.f64 R #s(approx ( 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))))

Compiler

Compiled 30 782 to 16 140 computations (47.6% saved)

simplify155.0ms (0.4%)

Memory

33.8MiB live, 189.7MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	128	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	128	(+.f64 (pow.f64 (/.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)))))) #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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
cost-diff	1408	(/.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))))))
cost-diff	14144	(/.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)))))
cost-diff	0	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))
cost-diff	0	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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)))))))))
cost-diff	128	(+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	512	(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
cost-diff	0	(atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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))))))))
cost-diff	0	(.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))))))))
cost-diff	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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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))))))))))
cost-diff	128	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	0	(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)))))
cost-diff	0	(atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))
cost-diff	0	(.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))
cost-diff	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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
cost-diff	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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
cost-diff	128	(+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	128	(+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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-diff	512	(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	121	3373
0	221	3350
1	339	3254
2	568	3242
3	1177	3234
4	2736	3234
5	7085	3234
0	8148	3180

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

localize1.2s (3%)

Memory

54.3MiB live, 1 871.2MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	16.207891287898896	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy	16.207891287898896	(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy	32.62923072088779	#s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
accuracy	0.8220117650827482	(-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy	16.944785943866236	(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
accuracy	27.341964545224947	#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))))
accuracy	16.207891287898896	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy	16.944785943866236	(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
accuracy	32.82538595113824	#s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
accuracy	0.6178204772590831	(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
accuracy	16.944785943866236	(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
accuracy	28.099800234810736	#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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
accuracy	29.296237156142553	#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))))
accuracy	0.40072250976844204	(pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64))
accuracy	0.40072250976844204	(pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
accuracy	0.8220117650827482	(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Samples

949.0ms	229×	1	valid
46.0ms	27×	0	valid

Compiler

Compiled 6 237 to 224 computations (96.4% saved)

Precisions

Click to see histograms. Total time spent on operations: 775.0ms

ival-sin: 253.0ms (32.6% of total)

ival-cos: 198.0ms (25.5% of total)

ival-mult: 115.0ms (14.8% of total)

adjust: 51.0ms (6.6% of total)

ival-pow2: 38.0ms (4.9% of total)

ival-sqrt: 38.0ms (4.9% of total)

ival-add: 27.0ms (3.5% of total)

ival-atan2: 24.0ms (3.1% of total)

ival-div: 14.0ms (1.8% of total)

ival-sub: 13.0ms (1.7% of total)

exact: 1.0ms (0.1% of total)

ival-neg: 1.0ms (0.1% of total)

ival-true: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

series228.0ms (0.5%)

Memory

-58.6MiB live, 320.8MiB allocated

Counts

31 → 1 284

Calls

Call 1

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

Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (- (* (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (- (* (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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)))))))
(+ (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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))))))
(+ (* (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 (- (* (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 phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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))))))
(+ (* (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 (- (* (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 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)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(+ (* (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))
(* 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 (- (* (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 (+ (* (cos (* -1/2 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 (- (* (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 (+ (* (cos (* -1/2 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 (- (* (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 (+ (* (cos (* -1/2 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 (- (* (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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 (- (* (cos (* 1/2 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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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 (- (* (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 phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (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 (+ (* (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))))
(+ (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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))))))
(+ (* (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 (- (* (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 phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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))))))
(+ (* (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 (- (* (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 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)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(+ (* (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))
(* 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 (- (* (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 (+ (* (cos (* -1/2 phi2)) (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 (- (* (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 (+ (* (cos (* -1/2 phi2)) (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 (- (* (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 (+ (* (cos (* -1/2 phi2)) (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 (- (* (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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 (- (* (cos (* 1/2 phi2)) (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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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 (- (* (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 phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (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)))
(- 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 (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/48 (* phi1 (cos (* 1/2 phi2)))) (* -1/8 (sin (* 1/2 phi2))))))) (sin (* 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))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* -1/2 phi2)))
(+ (* -1/2 (/ (* phi1 (cos (* -1/2 phi2))) (pow (sin (* -1/2 phi2)) 2))) (/ 1 (sin (* -1/2 phi2))))
(+ (* phi1 (- (* phi1 (- (* 1/8 (/ 1 (sin (* -1/2 phi2)))) (* -1/4 (/ (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 3))))) (* 1/2 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))))) (/ 1 (sin (* -1/2 phi2))))
(+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/48 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))) (+ (* 1/16 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (- (* 1/8 (/ 1 (sin (* -1/2 phi2)))) (* -1/4 (/ (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 3))))) (sin (* -1/2 phi2)))))))) (* 1/8 (/ 1 (sin (* -1/2 phi2))))) (* -1/4 (/ (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 3))))) (* 1/2 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))))) (/ 1 (sin (* -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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(- (+ 1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(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))
(+ (* (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)))
(- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* -1 (* (pow phi1 2) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- 1/48 (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- (+ 1/48 (* -1 (* (pow phi1 2) (+ 1/1440 (* -1/720 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (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)))
(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)))
(- 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)))
(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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (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 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 (- (* (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)
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (- 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))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ 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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* -1/2 (+ phi2 (* -1 phi1)))))
(/ 1 (sin (* -1/2 (+ phi2 (* -1 phi1)))))
(/ 1 (sin (* -1/2 (+ phi2 (* -1 phi1)))))
(/ 1 (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 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 (- (* (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)
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 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))
(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))
(- 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)))
(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 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 1/2 phi1))))))
(+ (sin (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/2 phi1)))
(+ (* 1/2 (/ (* phi2 (cos (* 1/2 phi1))) (pow (sin (* 1/2 phi1)) 2))) (/ 1 (sin (* 1/2 phi1))))
(+ (* phi2 (- (* phi2 (- (* 1/8 (/ 1 (sin (* 1/2 phi1)))) (* -1/4 (/ (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 3))))) (* -1/2 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))))) (/ 1 (sin (* 1/2 phi1))))
(+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/2 (/ (* (cos (* 1/2 phi1)) (- (* 1/8 (/ 1 (sin (* 1/2 phi1)))) (* -1/4 (/ (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 3))))) (sin (* 1/2 phi1)))) (+ (* -1/16 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))) (* 1/48 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/8 (/ 1 (sin (* 1/2 phi1))))) (* -1/4 (/ (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 3))))) (* -1/2 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))))) (/ 1 (sin (* 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 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)))
(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))
(+ (* (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) (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)))))))))
(+ (* (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)))
(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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (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 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 (- (* (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)
(+ (* (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))) (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)))
(+ (* (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)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (* -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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/2 (+ phi1 (* -1 phi2)))))
(/ 1 (sin (* 1/2 (+ phi1 (* -1 phi2)))))
(/ 1 (sin (* 1/2 (+ phi1 (* -1 phi2)))))
(/ 1 (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 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 (- (* (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)
(+ (* (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 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))))
(+ (* (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)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))

Calls

15 calls:

Time	Variable		Point	Expression
31.0ms	lambda2	@	0	((- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) (* 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 1/2)) (cos (* 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 (/ (- 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))))))))) (* 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)))))))) (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))))))) (sqrt (+ (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)))) (* 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))))))))) (* 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)))))))) (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))))))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2)))) (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- phi1 phi2) 2)) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) 2)) (sin (* (- phi1 phi2) 1/2)))
24.0ms	lambda2	@	-inf	((- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) (* 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 1/2)) (cos (* 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 (/ (- 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))))))))) (* 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)))))))) (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))))))) (sqrt (+ (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)))) (* 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))))))))) (* 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)))))))) (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))))))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2)))) (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- phi1 phi2) 2)) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) 2)) (sin (* (- phi1 phi2) 1/2)))
16.0ms	phi1	@	inf	((- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) (* 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 1/2)) (cos (* 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 (/ (- 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))))))))) (* 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)))))))) (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))))))) (sqrt (+ (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)))) (* 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))))))))) (* 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)))))))) (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))))))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2)))) (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- phi1 phi2) 2)) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) 2)) (sin (* (- phi1 phi2) 1/2)))
16.0ms	lambda1	@	inf	((- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) (* 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 1/2)) (cos (* 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 (/ (- 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))))))))) (* 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)))))))) (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))))))) (sqrt (+ (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)))) (* 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))))))))) (* 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)))))))) (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))))))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2)))) (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- phi1 phi2) 2)) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) 2)) (sin (* (- phi1 phi2) 1/2)))
14.0ms	lambda1	@	-inf	((- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) (* 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 1/2)) (cos (* 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 (/ (- 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))))))))) (* 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)))))))) (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))))))) (sqrt (+ (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)))) (* 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))))))))) (* 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)))))))) (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))))))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2)))) (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- phi1 phi2) 2)) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) 2)) (sin (* (- phi1 phi2) 1/2)))

simplify385.0ms (0.9%)

Memory

8.5MiB live, 725.9MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	814	53339
1	2588	53043
0	8210	50918

Stop Event

1×	iter limit
1×	node limit

Counts

1 284 → 1 284

Calls

Call 1

Inputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (- (* (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (- (* (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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)))))))
(+ (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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))))))
(+ (* (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 (- (* (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 phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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))))))
(+ (* (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 (- (* (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 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)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(+ (* (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))
(* 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 (- (* (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 (+ (* (cos (* -1/2 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 (- (* (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 (+ (* (cos (* -1/2 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 (- (* (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 (+ (* (cos (* -1/2 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 (- (* (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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 (- (* (cos (* 1/2 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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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 (- (* (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 phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (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 (+ (* (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))))
(+ (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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))))))
(+ (* (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 (- (* (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 phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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))))))
(+ (* (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 (- (* (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 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)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(+ (* (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))
(* 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 (- (* (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 (+ (* (cos (* -1/2 phi2)) (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 (- (* (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 (+ (* (cos (* -1/2 phi2)) (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 (- (* (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 (+ (* (cos (* -1/2 phi2)) (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 (- (* (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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 (- (* (cos (* 1/2 phi2)) (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)))))))
(* 2 (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 (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 (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 (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))))))
(+ (* (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 (- (* (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 phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (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)))
(- 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 (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/48 (* phi1 (cos (* 1/2 phi2)))) (* -1/8 (sin (* 1/2 phi2))))))) (sin (* 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))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* -1/2 phi2)))
(+ (* -1/2 (/ (* phi1 (cos (* -1/2 phi2))) (pow (sin (* -1/2 phi2)) 2))) (/ 1 (sin (* -1/2 phi2))))
(+ (* phi1 (- (* phi1 (- (* 1/8 (/ 1 (sin (* -1/2 phi2)))) (* -1/4 (/ (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 3))))) (* 1/2 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))))) (/ 1 (sin (* -1/2 phi2))))
(+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/48 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))) (+ (* 1/16 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (- (* 1/8 (/ 1 (sin (* -1/2 phi2)))) (* -1/4 (/ (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 3))))) (sin (* -1/2 phi2)))))))) (* 1/8 (/ 1 (sin (* -1/2 phi2))))) (* -1/4 (/ (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 3))))) (* 1/2 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))))) (/ 1 (sin (* -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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(- (+ 1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(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))
(+ (* (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)))
(- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* -1 (* (pow phi1 2) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- 1/48 (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- (+ 1/48 (* -1 (* (pow phi1 2) (+ 1/1440 (* -1/720 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (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)))
(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)))
(- 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)))
(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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (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 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 (- (* (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)
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (- 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))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ 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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* -1/2 (+ phi2 (* -1 phi1)))))
(/ 1 (sin (* -1/2 (+ phi2 (* -1 phi1)))))
(/ 1 (sin (* -1/2 (+ phi2 (* -1 phi1)))))
(/ 1 (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 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 (- (* (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)
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 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))
(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))
(- 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)))
(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 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 1/2 phi1))))))
(+ (sin (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/2 phi1)))
(+ (* 1/2 (/ (* phi2 (cos (* 1/2 phi1))) (pow (sin (* 1/2 phi1)) 2))) (/ 1 (sin (* 1/2 phi1))))
(+ (* phi2 (- (* phi2 (- (* 1/8 (/ 1 (sin (* 1/2 phi1)))) (* -1/4 (/ (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 3))))) (* -1/2 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))))) (/ 1 (sin (* 1/2 phi1))))
(+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/2 (/ (* (cos (* 1/2 phi1)) (- (* 1/8 (/ 1 (sin (* 1/2 phi1)))) (* -1/4 (/ (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 3))))) (sin (* 1/2 phi1)))) (+ (* -1/16 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))) (* 1/48 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/8 (/ 1 (sin (* 1/2 phi1))))) (* -1/4 (/ (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 3))))) (* -1/2 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))))) (/ 1 (sin (* 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 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)))
(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))
(+ (* (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) (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)))))))))
(+ (* (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)))
(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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/ 1 (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 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 (- (* (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)
(+ (* (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))) (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)))
(+ (* (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)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (* -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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (sin (* 1/2 (+ phi1 (* -1 phi2)))))
(/ 1 (sin (* 1/2 (+ phi1 (* -1 phi2)))))
(/ 1 (sin (* 1/2 (+ phi1 (* -1 phi2)))))
(/ 1 (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 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 (- (* (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)
(+ (* (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 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))))
(+ (* (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)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))

Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 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 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) lambda1 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) lambda1 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) lambda1))))) lambda1 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (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 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) lambda1 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) lambda1 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (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 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(fma.f64 (.f64 (neg.f64 lambda1) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(fma.f64 (neg.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi1)))) lambda1 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) lambda1 (.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (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 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(+ (* (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 phi1) (cos.f64 phi2)) (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 (+ 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 phi1) (cos.f64 phi2)) (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 (+ 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 phi1) (cos.f64 phi2)) (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 (+ 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 phi1) (cos.f64 phi2)) (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 (+ 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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 (- (* (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 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(+ (* (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 phi1) (cos.f64 phi2)) (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 (.f64 lambda2 (neg.f64 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (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 phi1) (cos.f64 phi2)) (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 (.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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (neg.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi1) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (.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 phi1) (cos.f64 phi2)) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda2) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) lambda2 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 (.f64 (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 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (.f64 (fma.f64 (.f64 (cos.f64 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 #s(literal 1/2 binary64) (cos.f64 phi1)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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))))) lambda2 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 (neg.f64 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 (sin (* 1/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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 phi1) (cos.f64 phi2)) (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 (neg.f64 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 #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))) (* -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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 lambda2 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi1) (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1) (cos.f64 phi2))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1) (cos.f64 phi2)) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1) (cos.f64 phi2)) (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 (neg.f64 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 (+ (* (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 phi1) (cos.f64 phi2)) (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 (.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (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 phi1) (cos.f64 phi2)) (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 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (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) (cos.f64 phi2)) (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 (.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 phi1) (cos.f64 phi2)) (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) (cos.f64 phi2)) (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 #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))) (* -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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (+ (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(fma.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(-.f64 (fma.f64 (fma.f64 (.f64 (neg.f64 lambda2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) lambda2 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)) (.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (neg.f64 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 (neg.f64 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 (+ (* (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 phi1) (cos.f64 phi2)) (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 (.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (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 phi1) (cos.f64 phi2)) (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 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (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) (cos.f64 phi2)) (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 (.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 phi1) (cos.f64 phi2)) (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) (cos.f64 phi2)) (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 #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))) (* -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))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(+ (* (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 (sin (* 1/2 phi2)))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(- (* 1/2 (* phi1 (cos (* 1/2 phi2)))) (sin (* 1/2 phi2)))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* phi1 (+ (* 1/8 (* phi1 (sin (* 1/2 phi2)))) (* 1/2 (cos (* 1/2 phi2))))) (sin (* 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 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* phi1 (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (- (* -1/48 (* phi1 (cos (* 1/2 phi2)))) (* -1/8 (sin (* 1/2 phi2))))))) (sin (* 1/2 phi2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) phi1 (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (neg.f64 (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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (.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 (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* -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 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi1 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(fma.f64 (.f64 phi1 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (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)))) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) phi1 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(fma.f64 (fma.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (+.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) phi1))))) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (* (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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (.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 (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 (pow.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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/ 1 (sin (* -1/2 phi2)))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(+ (* -1/2 (/ (* phi1 (cos (* -1/2 phi2))) (pow (sin (* -1/2 phi2)) 2))) (/ 1 (sin (* -1/2 phi2))))
(fma.f64 (.f64 phi1 (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+ (* phi1 (- (* phi1 (- (* 1/8 (/ 1 (sin (* -1/2 phi2)))) (* -1/4 (/ (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 3))))) (* 1/2 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))))) (/ 1 (sin (* -1/2 phi2))))
(fma.f64 (fma.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)))) phi1 (.f64 (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal -1/2 binary64))) phi1 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/48 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))) (+ (* 1/16 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (- (* 1/8 (/ 1 (sin (* -1/2 phi2)))) (* -1/4 (/ (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 3))))) (sin (* -1/2 phi2)))))))) (* 1/8 (/ 1 (sin (* -1/2 phi2))))) (* -1/4 (/ (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 3))))) (* 1/2 (/ (cos (* -1/2 phi2)) (pow (sin (* -1/2 phi2)) 2))))) (/ 1 (sin (* -1/2 phi2))))
(fma.f64 (fma.f64 (fma.f64 (neg.f64 phi1) (fma.f64 (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 1/24 binary64) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64)) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64)))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 3 binary64))))) phi1 (.f64 (/.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal -1/2 binary64))) phi1 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(fma.f64 (fma.f64 (.f64 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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) 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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (.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 (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 (pow.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 (+ (* (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 (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 (- (* -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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64) (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 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.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)) phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.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 phi1 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 (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 phi1 phi1) (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 (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)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) 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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (.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 (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 (pow.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 (+ (* (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 phi1) (.f64 (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)))))) (* (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 (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 (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)))))
(- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (* -1 (* (pow phi1 2) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- 1/48 (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(fma.f64 (fma.f64 (-.f64 #s(literal 1/48 binary64) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi1 phi1) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)))) (.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- (+ 1/48 (* -1 (* (pow phi1 2) (+ 1/1440 (* -1/720 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(fma.f64 (fma.f64 (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/720 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/1440 binary64)) (-.f64 #s(literal 1/48 binary64) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi1 phi1) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)))) (.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 #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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (.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 (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 (pow.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))))
(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 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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) 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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (.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 (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 (pow.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 (+ (* (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 phi1) (.f64 (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)))))) (* (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 (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 (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)))))
(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 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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) 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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(+ (* (cos phi1) (* (cos phi2) (pow (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/.f64 #s(literal 1 binary64) (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 phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (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)))) #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 (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))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (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)))) #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))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(+ (* (cos phi1) (* (cos phi2) (pow (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/ 1 (sin (* -1/2 (+ phi2 (* -1 phi1)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* -1/2 (+ phi2 (* -1 phi1)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* -1/2 (+ phi2 (* -1 phi1)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* -1/2 (+ phi2 (* -1 phi1)))))
(/.f64 #s(literal 1 binary64) (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)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(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 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (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)))) #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 (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))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (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)))) #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))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (sin (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 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 (- (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) 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 (.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 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))))
(+ (* (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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(fma.f64 (.f64 phi2 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 1/2 binary64) phi2) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (+.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64) (.f64 (/.f64 (.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (.f64 (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)))) #s(literal 1/2 binary64))) phi2))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(+ (* (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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/ 1 (sin (* 1/2 phi1)))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (* 1/2 (/ (* phi2 (cos (* 1/2 phi1))) (pow (sin (* 1/2 phi1)) 2))) (/ 1 (sin (* 1/2 phi1))))
(fma.f64 (.f64 phi2 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (* phi2 (- (* phi2 (- (* 1/8 (/ 1 (sin (* 1/2 phi1)))) (* -1/4 (/ (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 3))))) (* -1/2 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))))) (/ 1 (sin (* 1/2 phi1))))
(fma.f64 (fma.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64)))) phi2 (.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) phi2 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/2 (/ (* (cos (* 1/2 phi1)) (- (* 1/8 (/ 1 (sin (* 1/2 phi1)))) (* -1/4 (/ (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 3))))) (sin (* 1/2 phi1)))) (+ (* -1/16 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))) (* 1/48 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/8 (/ 1 (sin (* 1/2 phi1))))) (* -1/4 (/ (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 3))))) (* -1/2 (/ (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 2))))) (/ 1 (sin (* 1/2 phi1))))
(fma.f64 (fma.f64 (fma.f64 (neg.f64 phi2) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64)) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1/24 binary64))) (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))))) phi2 (.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) phi2 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #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))) (* -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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) 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 (.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 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))))
(- 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 (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 (- (* -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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64) (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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 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 (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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 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 (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 (.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 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))))
(- 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 (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 (- (* -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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64) (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) (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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 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))))
(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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #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))) (* -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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) 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 (.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 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))))
(- 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 (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 (- (* -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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64) (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)))))
(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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #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))) (* -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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) 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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(+ (* (cos phi1) (* (cos phi2) (pow (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* 1/2 (- phi1 phi2))))
(/.f64 #s(literal 1 binary64) (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 phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (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)))) #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 (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))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (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)))) #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))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(+ (* (cos phi1) (* (cos phi2) (pow (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 (- (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (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 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/ 1 (sin (* 1/2 (+ phi1 (* -1 phi2)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* 1/2 (+ phi1 (* -1 phi2)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* 1/2 (+ phi1 (* -1 phi2)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/ 1 (sin (* 1/2 (+ phi1 (* -1 phi2)))))
(/.f64 #s(literal 1 binary64) (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 phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (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)))) #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 (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)))) #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 (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)))) #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 (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))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (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)))) #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 (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))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (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)))) #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))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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)))

rewrite319.0ms (0.8%)

Memory

25.0MiB live, 415.0MiB allocated

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	117	1517
0	213	1410
1	635	1206
2	4451	1188
0	8529	1168

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Counts

31 → 989

Calls

Call 1

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

Outputs
(.f64 (exp.f64 (neg.f64 (log.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (+.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))) (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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 #s(literal -1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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)))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (exp.f64 (log.f64 #s(literal -1 binary64))) (exp.f64 (log.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(/.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (exp.f64 (log.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal 2 binary64))
(/.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 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (-.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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.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 phi2 #s(literal 1/2 binary64)))) (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 2 binary64)) (-.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.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 phi2 #s(literal 1/2 binary64)))) (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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) (.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 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 binary64)) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 2 binary64)) (.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(neg.f64 (/.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))))
(fma.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (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 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 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 phi2 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.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))))
(fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #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 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 (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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(-.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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(-.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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (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 phi2 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (pow.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(.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))) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) #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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 #s(literal 1 binary64) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (-.f64 (.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 (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (neg.f64 (fma.f64 (.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 (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 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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 (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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(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)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1 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))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.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))) #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (pow.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 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (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 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 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (.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))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 1 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)))) (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 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (pow.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(.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))) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) #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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 #s(literal 1 binary64) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (-.f64 (.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 (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (neg.f64 (fma.f64 (.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 (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 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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 (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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(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)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1 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))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.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))) #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (pow.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 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (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 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 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (.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))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 1 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)))) (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 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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))))))) #s(literal 2 binary64))
(.f64 (.f64 R #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)) R)
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))
(.f64 R (.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)))
(.f64 #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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) R))
(.f64 (.f64 R (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))))))) #s(literal 2 binary64))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) #s(literal 2 binary64)) R)
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(.f64 R (.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) R))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))))))
(.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)) (pow.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)))) #s(literal 1/4 binary64)))
(pow.f64 (exp.f64 (log.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)))))) #s(literal 1/2 binary64))
(pow.f64 (.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)))) #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))))) #s(literal 1/4 binary64))
(pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)) #s(literal 2 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(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)))))
(exp.f64 (.f64 (log.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))))) #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 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (pow.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(.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))) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) #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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 #s(literal 1 binary64) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (-.f64 (.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 (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (neg.f64 (fma.f64 (.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 (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 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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 (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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(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)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1 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))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.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))) #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (pow.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 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (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 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 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (.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))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 1 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)))) (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 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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))))))) #s(literal 2 binary64))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)) R)
(.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 (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))
(.f64 R (.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 (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.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 (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) R))
(.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 (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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)))))))
(atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))) #s(literal 2 binary64))
(.f64 (.f64 R #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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))
(.f64 (.f64 (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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R)
(.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 (-.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 #s(literal 2 binary64)))
(.f64 R (.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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) #s(literal 2 binary64)))
(.f64 #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 (-.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))))))) R))
(.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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) #s(literal 2 binary64))
(.f64 #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 (-.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 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -1 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal -1 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal -1 binary64)))
(.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -1 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal 2 binary64))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal 1 binary64))
(.f64 (sin.f64 (.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 -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(pow.f64 (/.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal 1 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))
(/.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (neg.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal 1 binary64))
(/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (*.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 -1 binary64)))
(exp.f64 (neg.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(.f64 (exp.f64 (neg.f64 (log.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (+.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))) (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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 #s(literal -1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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)))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (exp.f64 (log.f64 #s(literal -1 binary64))) (exp.f64 (log.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(/.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (exp.f64 (log.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal 2 binary64))
(/.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 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (-.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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.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 phi2 #s(literal 1/2 binary64)))) (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 2 binary64)) (-.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.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 phi2 #s(literal 1/2 binary64)))) (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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) (.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 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 binary64)) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 2 binary64)) (.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(neg.f64 (/.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))))
(fma.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (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 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 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 phi2 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.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))))
(fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #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 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 (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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(-.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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(-.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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (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 phi2 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (pow.f64 (fma.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(/.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 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #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))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 #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))))) (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)))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 #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))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))
(fma.f64 #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 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) #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))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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)))))) (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)) (.f64 #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))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 #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))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) #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)))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 #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))))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (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 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (/.f64 (pow.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1 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 (.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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 (+.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))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (pow.f64 (fma.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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) #s(literal -1 binary64)))
(pow.f64 (/.f64 (+.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))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 #s(literal 1 binary64) (pow.f64 (neg.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)))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (neg.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 (-.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 #s(literal 1 binary64) (pow.f64 (neg.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)))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (neg.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)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (neg.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 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))) (neg.f64 (+.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))) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))) (neg.f64 (fma.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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (+.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))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (fma.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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.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))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (neg.f64 (.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)))))
(fma.f64 #s(literal -1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (pow.f64 (+.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))) #s(literal 1 binary64)) #s(literal -1 binary64)) (/.f64 (pow.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))) #s(literal 2 binary64)) (+.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))) #s(literal 1 binary64))))
(-.f64 (pow.f64 (fma.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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) #s(literal -1 binary64)) (/.f64 (pow.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))) #s(literal 3 binary64)) (fma.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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (neg.f64 (.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 (neg.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)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.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 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 binary64))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)))
(.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(.f64 (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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)))
(.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.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 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal -1 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 (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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (sin.f64 (.f64 (+.f64 phi2 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 #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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.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 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/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 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)))
(/.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 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))))
(/.f64 #s(literal -1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(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 (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 (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 phi2 #s(literal 1/2 binary64)))) (cos.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 (.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 (.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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) #s(literal -1 binary64)))
(exp.f64 (.f64 (neg.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal -2 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 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 (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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 (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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 binary64))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)))
(.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(.f64 (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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)))
(.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.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 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal -1 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 (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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (sin.f64 (.f64 (+.f64 phi2 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 #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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.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 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/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 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)))
(/.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 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))))
(/.f64 #s(literal -1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(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 (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 (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 phi2 #s(literal 1/2 binary64)))) (cos.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 (.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 (.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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64))) #s(literal -1 binary64)))
(exp.f64 (.f64 (neg.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal -2 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 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 (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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 (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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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)))))
#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))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))))
(.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1 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 (.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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1 binary64)))
(.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 6 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) (pow.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64))) #s(literal -1 binary64)))
(pow.f64 (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 6 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64))))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 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)))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 6 binary64)) (.f64 (pow.f64 (neg.f64 (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) (+.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 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)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (neg.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 6 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64))))) (neg.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 6 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 6 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64))))))
(fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))
(fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (cos.f64 phi1) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))
(fma.f64 #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)) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (neg.f64 (cos.f64 phi1)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (neg.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 6 binary64)) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)))))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(+.f64 (.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))
(+.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 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(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(.f64 (exp.f64 (neg.f64 (log.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (+.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))) (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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 #s(literal -1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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)))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (exp.f64 (log.f64 #s(literal -1 binary64))) (exp.f64 (log.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(/.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (exp.f64 (log.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal 2 binary64))
(/.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 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (-.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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.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 phi2 #s(literal 1/2 binary64)))) (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 2 binary64)) (-.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.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 phi2 #s(literal 1/2 binary64)))) (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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) (.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 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 binary64)) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 2 binary64)) (.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(neg.f64 (/.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))))
(fma.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (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 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 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 phi2 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.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))))
(fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #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 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 (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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(-.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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(-.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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (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 phi2 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 #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)))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(.f64 (-.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (pow.f64 (+.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)))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 3 binary64))) (pow.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 (pow.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 #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)))) #s(literal 1 binary64)) #s(literal 1 binary64)) #s(literal -1 binary64)))
(pow.f64 (/.f64 (+.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)))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.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 (pow.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 #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)))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))
(/.f64 (+.f64 #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 2 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 (pow.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 (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 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 (pow.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 #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)))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 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 (pow.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 #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)))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 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 (pow.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 #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)))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64))
(-.f64 (pow.f64 (+.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)))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1 binary64))))
(-.f64 (pow.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 (pow.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 #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)))) #s(literal 1 binary64)) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 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 (pow.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 #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)))) #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 (pow.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 (neg.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))))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))
#s(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 (exp.f64 (neg.f64 (log.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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 (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (+.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))) (pow.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.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 #s(literal -1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (exp.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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)))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (exp.f64 (log.f64 #s(literal -1 binary64))) (exp.f64 (log.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))))
(/.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (exp.f64 (log.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (exp.f64 (log.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal 2 binary64))
(/.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 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (-.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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.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 phi2 #s(literal 1/2 binary64)))) (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 2 binary64)) (-.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.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 phi2 #s(literal 1/2 binary64)))) (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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) (.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 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 binary64)) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.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 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 2 binary64)) (.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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (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 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(neg.f64 (/.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))))
(fma.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (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 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 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 phi2 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.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))))
(fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #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 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 (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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(-.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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(-.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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal 1/2 binary64) (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 phi2 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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))))

eval824.0ms (2%)

Memory: 59.8MiB live, 1 001.2MiB allocated
Compiler: Compiled 376 622 to 11 163 computations (97% saved)

prune1.0s (2.4%)

Memory

-8.0MiB live, 1 716.9MiB allocated

Pruning

201 alts after pruning (201 fresh and 0 done)

	Pruned	Kept	Total
New	3 274	103	3 377
Fresh	64	98	162
Picked	5	0	5
Done	0	0	0
Total	3 343	201	3 544

Accuracy

77.9%

Counts

3 544 → 201

Alt Table

Click to see full alt table

Status	Accuracy	Program
	59.5%	(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))
	47.8%	(.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 (-.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 #s(literal 2 binary64)))
	44.0%	(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	36.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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))))))))))
	45.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	40.9%	(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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)))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	40.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	58.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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))))))))))
	39.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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.5%	(.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	59.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (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))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	43.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	48.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	53.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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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)) (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #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))))))))))
	60.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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))))))))))
▶	75.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 (-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	60.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	75.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (-.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 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	71.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 (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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 2 binary64)) (.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)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	75.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)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (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)))))))))))
	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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))
	48.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	58.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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
	35.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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))))))))))
	39.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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 (neg.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))))))))))
	39.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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.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 #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) #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.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 (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))))))))
	58.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) #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))))))))
	50.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 1/2)) (cos (* 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 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))))))))
	50.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 #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 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi1) (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	20.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	48.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	70.3%	(.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 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	45.2%	(.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	47.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	48.9%	(.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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	36.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	60.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	70.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	49.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
	49.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	40.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	40.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	49.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	43.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
	49.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
▶	36.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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)))))))))
	36.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 (pow.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)))))))))
	33.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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	22.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 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	44.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	59.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 (-.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (+.f64 #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)))))))
	23.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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (.f64 #s(literal 2 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))))))))))
	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 (.f64 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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))))))))))
	47.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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))))))))))
	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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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))))))))))
	14.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 (/.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.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 (/.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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
	37.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	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 #s(literal 2 binary64) (.f64 (/.f64 #s(literal 2 binary64) phi1) phi2)) (.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.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 (/.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 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	49.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 (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) #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)))))))))
	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 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 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))
	48.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)))))))))
	41.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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)))))))))
	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) #s(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)))))))))
	47.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 #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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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))))))))
	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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	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)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
	37.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	39.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 #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 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) lambda2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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)))))))
	56.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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	14.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 (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))))))))))
	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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
	34.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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)))))))))
	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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 (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))))))))))
	34.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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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))))))))
	33.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	34.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	52.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 (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))))))))))
	40.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.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)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.3%	(.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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	40.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	29.2%	(.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 (fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64))))))))
	36.4%	(.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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64))))))))
	41.4%	(.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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
	41.4%	(.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 (fma.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)))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))))
	41.5%	(.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 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 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.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) (+.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	41.9%	(.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 (fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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) (+.f64 (pow.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	32.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
	33.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
	40.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	28.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) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.9%	(.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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))))))))))
	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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	29.3%	(.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 #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 #s(literal -1/2 binary64) phi2)) #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))))))))
	41.3%	(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	29.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	45.3%	(.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 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	44.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
	28.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	53.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
	38.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	47.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	58.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #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)))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	57.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	20.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	42.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	43.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	41.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	43.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (pow.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)))))))))
	32.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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 (pow.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)))))))))
	49.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.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 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	37.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	37.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	43.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	33.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi1) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	50.8%	(.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 (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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))))))))))
	47.0%	(.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 (pow.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))))))))))
	45.1%	(.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 (pow.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))))))))))
	54.7%	(.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 phi1) (cos.f64 phi2)) (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))))))))))
	55.7%	(.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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))))))))))
	43.6%	(.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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	22.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	44.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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	31.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	37.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (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))))))))))
	44.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 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))))))))))
	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 (pow.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	44.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	35.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 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
	36.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	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 (pow.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 6 binary64)) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 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 (pow.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	35.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)))))))))
	36.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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 (pow.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1 binary64))))))))
	22.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
▶	32.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	32.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	33.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	32.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	31.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	33.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	30.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 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)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	33.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	46.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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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))))))))))
	35.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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	41.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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))))))))))
	40.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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))))))))))
	40.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))))))))
	33.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
	33.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
	34.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 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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))))))))))
	40.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	28.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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)))))))))
	36.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
	33.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	28.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 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	43.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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))))) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	60.9%	(.f64 R #s(approx ( 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))))
	75.8%	#s(approx (* 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 1/2)) (cos (* 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #s(literal 2 binary64))))))))

Compiler

Compiled 40 462 to 20 924 computations (48.3% saved)

simplify191.0ms (0.5%)

Memory

-0.6MiB live, 193.0MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))
cost-diff	0	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
cost-diff	7232	(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
cost-diff	12928	(/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))
cost-diff	0	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.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 (pow.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))))))))
cost-diff	0	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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)))))))))
cost-diff	128	(-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
cost-diff	128	(+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))
cost-diff	0	(atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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-diff	0	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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-diff	0	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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-diff	128	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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-diff	0	(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)))))
cost-diff	0	(atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
cost-diff	0	(.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))
cost-diff	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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
cost-diff	0	(.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 (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 (*.f64 (cos.f64 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-diff	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 (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 (.f64 (cos.f64 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-diff	128	(+.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 (.f64 (cos.f64 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-diff	128	(+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	149	3488
0	263	3486
1	389	3416
2	654	3406
3	1383	3365
4	3560	3345
0	8380	3291

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

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

localize1.4s (3.4%)

Memory

10.6MiB live, 1 936.6MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	16.57853628134296	(cos.f64 (+.f64 phi2 phi1))
accuracy	16.636711969297004	(cos.f64 (-.f64 phi1 phi2))
accuracy	16.944785943866236	(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
accuracy	28.099800234810736	#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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy	16.944785943866236	(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
accuracy	27.341964545224947	#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))))
accuracy	37.894621829635675	#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
accuracy	16.207891287898896	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy	16.207891287898896	(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy	29.166132842422147	#s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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))))
accuracy	16.944785943866236	(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
accuracy	25.313194836285387	#s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
accuracy	28.099800234810736	#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
accuracy	29.296237156142553	#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))))
accuracy	0.40072250976844204	(pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64))
accuracy	0.40072250976844204	(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))
accuracy	0.8220117650827482	(-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy	16.944785943866236	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Samples

1.2s	229×	1	valid
25.0ms	27×	0	valid

Compiler

Compiled 6 408 to 269 computations (95.8% saved)

Precisions

Click to see histograms. Total time spent on operations: 1.0s

ival-cos: 279.0ms (26.8% of total)

ival-sin: 272.0ms (26.2% of total)

ival-mult: 187.0ms (18% of total)

ival-pow2: 81.0ms (7.8% of total)

ival-sqrt: 52.0ms (5% of total)

adjust: 51.0ms (4.9% of total)

ival-add: 40.0ms (3.8% of total)

ival-div: 31.0ms (3% of total)

ival-atan2: 30.0ms (2.9% of total)

ival-sub: 16.0ms (1.5% of total)

exact: 1.0ms (0.1% of total)

ival-true: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

series301.0ms (0.7%)

Memory

21.8MiB live, 502.3MiB allocated

Counts

36 → 1 536

Calls

Call 1

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

Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (+ (* (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (+ (* (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 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)) 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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 1/2 (* lambda1 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* 1/2 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* 1/2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda1 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda1 (+ (* lambda1 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 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)))))))))
(+ (* (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)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (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))) (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (* (cos phi2) (pow (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/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 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)))
(+ (* (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 (+ 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))
(* 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 (+ (* (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 (+ (* (cos (* -1/2 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 (+ (* (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 (+ (* (cos (* -1/2 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 (+ (* (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 (+ (* (cos (* -1/2 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2)))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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 (- (* (cos (* 1/2 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)))))))
(* 2 (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 (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 (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 (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))))))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 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))))
(+ (* (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))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (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) (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* -1/2 (* lambda2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/2 (* lambda2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* lambda2 (+ (* 1/2 (* lambda2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* 1/2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda2 (+ (* -1 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* lambda2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda2 (+ (* -1 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* lambda2 (+ (* lambda2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 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)))))))))
(+ (* (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)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (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))) (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (* (cos phi2) (pow (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/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 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)))
(+ (* (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 (* -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))
(* 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 (+ (* (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 (+ (* (cos (* -1/2 phi2)) (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 (+ (* (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 (+ (* (cos (* -1/2 phi2)) (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 (+ (* (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 (+ (* (cos (* -1/2 phi2)) (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2)))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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 (- (* (cos (* 1/2 phi2)) (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)))))))
(* 2 (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 (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 (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 (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))))))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 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) (* (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))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (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)))
(+ (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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) (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 (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/48 (* phi1 (cos (* 1/2 phi2)))) (* -1/8 (sin (* 1/2 phi2))))))) (sin (* 1/2 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2)))
(+ (* 1/2 (* phi1 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3))))) (* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* phi1 (- (+ (* -1 (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (sin (* 1/2 phi2)))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (sin (* 1/2 phi2))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4)))))) (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (* phi1 (+ (* 1/2 (* phi1 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))))) (+ (* -1 (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi2) (sin (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (+ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))))) (pow (sin (* 1/2 phi2)) 2))) (+ (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))))) (sin (* 1/2 phi2))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (pow (sin (* 1/2 phi2)) 2)))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (sin (* 1/2 phi2)))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (sin (* 1/2 phi2))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4))))) (sin (* 1/2 phi2))) (+ (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (pow (sin (* 1/2 phi2)) 2)) (/ (* (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4))))))) (* 1/2 (- (+ (* -1 (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (sin (* 1/2 phi2)))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (sin (* 1/2 phi2))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4))))))))))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2)))))) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2)))))) (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (+ (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -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 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2)))))) (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2))))))) (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi2) (sin (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (+ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -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 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -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 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (* -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))
(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 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)))
(- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* -1 (* (pow phi1 2) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- 1/48 (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- (+ 1/48 (* -1 (* (pow phi1 2) (+ 1/1440 (* -1/720 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (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)))
(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) (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 (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)
(+ (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 phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (* (cos phi2) (pow (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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (- 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 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 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ 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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (+ 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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)
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 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))
(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 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 (neg (+ phi2 (* -1 phi1))))
(cos (neg (+ phi2 (* -1 phi1))))
(cos (neg (+ phi2 (* -1 phi1))))
(cos (neg (+ phi2 (* -1 phi1))))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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/8 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 1/2 phi1))))))
(+ (sin (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (cos (* 1/2 phi1))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* 1/2 (* phi2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3))))) (* 1/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2))))
(+ (* 1/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* phi2 (- (+ (* -1 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1 (/ (* (cos (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (sin (* 1/2 phi1)))) (+ (* 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))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (+ (/ (* (cos (* 1/2 phi1)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (sin (* 1/2 phi1))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4)))))) (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))))))
(+ (* 1/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (* phi2 (+ (* 1/2 (* phi2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))))) (+ (* -1 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (+ (* -1 (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi1) (* -1 (sin phi1))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (pow (sin (* 1/2 phi1)) 2))) (+ (* 2 (/ (* (cos phi1) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (+ (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (pow (sin (* 1/2 phi1)) 2) (+ (* 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 (* 1/2 phi1)) (- (+ (* -1 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1 (/ (* (cos (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (sin (* 1/2 phi1)))) (+ (* 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))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (+ (/ (* (cos (* 1/2 phi1)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (sin (* 1/2 phi1))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4))))) (sin (* 1/2 phi1))) (+ (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (pow (sin (* 1/2 phi1)) 2)) (/ (* (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4))))))) (* 1/2 (- (+ (* -1 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1 (/ (* (cos (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (sin (* 1/2 phi1)))) (+ (* 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))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (+ (/ (* (cos (* 1/2 phi1)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (sin (* 1/2 phi1))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4))))))))))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* 2 (pow (sin (* 1/2 phi1)) 4)) (* phi2 (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1)))))) (+ (* 2 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3)))))))))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* 2 (pow (sin (* 1/2 phi1)) 4)) (* phi2 (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1)))))) (+ (* 2 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (+ (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3)))) (* phi2 (+ (* -1 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))))) (+ (* 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)))))) (* 2 (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))))))))))))))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* 2 (pow (sin (* 1/2 phi1)) 4)) (* phi2 (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1)))))) (+ (* 2 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (+ (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3)))) (* phi2 (+ (* -1 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))))) (+ (* 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)))))) (+ (* 2 (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (* phi2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1)))))) (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi1) (* -1 (sin phi1))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))) (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (+ (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (pow (sin (* 1/2 phi1)) 2) (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))))))))))))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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))
(+ (* (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) (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 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 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)
(+ (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 phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (* (cos phi2) (pow (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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)
(+ (* (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))) (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 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 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (* -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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (* -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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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)
(+ (* (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 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 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 (+ 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)))

Calls

15 calls:

Time	Variable		Point	Expression
43.0ms	lambda2	@	inf	((+ (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 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))))))))) (* 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)))))))) (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))))))) (sqrt (+ (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)))) (* R (* 2 (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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))))))))) (* 2 (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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)))))))) (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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))))))) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 2)) (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* R (* 2 (atan2 (sqrt (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 2))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 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 (* -1/2 phi2)) (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 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 (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (sin (* (- lambda1 lambda2) 1/2)) (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- phi1 phi2) 1/2)) (sin (/ (- phi1 phi2) 2)) (sin (/ (- lambda1 lambda2) 2)) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (cos (- phi1 phi2)) (cos (+ phi2 phi1)))
31.0ms	lambda2	@	-inf	((+ (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 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))))))))) (* 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)))))))) (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))))))) (sqrt (+ (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)))) (* R (* 2 (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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))))))))) (* 2 (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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)))))))) (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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))))))) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 2)) (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* R (* 2 (atan2 (sqrt (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 2))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 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 (* -1/2 phi2)) (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 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 (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (sin (* (- lambda1 lambda2) 1/2)) (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- phi1 phi2) 1/2)) (sin (/ (- phi1 phi2) 2)) (sin (/ (- lambda1 lambda2) 2)) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (cos (- phi1 phi2)) (cos (+ phi2 phi1)))
24.0ms	phi1	@	-inf	((+ (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 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))))))))) (* 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)))))))) (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))))))) (sqrt (+ (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)))) (* R (* 2 (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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))))))))) (* 2 (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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)))))))) (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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))))))) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 2)) (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* R (* 2 (atan2 (sqrt (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 2))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 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 (* -1/2 phi2)) (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 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 (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (sin (* (- lambda1 lambda2) 1/2)) (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- phi1 phi2) 1/2)) (sin (/ (- phi1 phi2) 2)) (sin (/ (- lambda1 lambda2) 2)) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (cos (- phi1 phi2)) (cos (+ phi2 phi1)))
20.0ms	lambda1	@	inf	((+ (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 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))))))))) (* 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)))))))) (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))))))) (sqrt (+ (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)))) (* R (* 2 (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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))))))))) (* 2 (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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)))))))) (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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))))))) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 2)) (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* R (* 2 (atan2 (sqrt (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 2))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 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 (* -1/2 phi2)) (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 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 (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (sin (* (- lambda1 lambda2) 1/2)) (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- phi1 phi2) 1/2)) (sin (/ (- phi1 phi2) 2)) (sin (/ (- lambda1 lambda2) 2)) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (cos (- phi1 phi2)) (cos (+ phi2 phi1)))
20.0ms	phi1	@	0	((+ (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 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))))))))) (* 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)))))))) (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))))))) (sqrt (+ (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)))) (* R (* 2 (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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))))))))) (* 2 (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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)))))))) (atan2 (sqrt (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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))))))) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 2)) (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* R (* 2 (atan2 (sqrt (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 2))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (atan2 (sqrt (/ (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) 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 (* -1/2 phi2)) (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 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 (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (sin (* (- lambda1 lambda2) 1/2)) (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (* (- phi1 phi2) 1/2)) (sin (/ (- phi1 phi2) 2)) (sin (/ (- lambda1 lambda2) 2)) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (cos (- phi1 phi2)) (cos (+ phi2 phi1)))

simplify486.0ms (1.2%)

Memory

11.0MiB live, 711.0MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1280	77558
1	4285	76372
0	8204	73379

Stop Event

1×	iter limit
1×	node limit

Counts

1 536 → 1 536

Calls

Call 1

Inputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (+ (* (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (+ (* (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (sin (* 1/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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 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)) 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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 1/2 (* lambda1 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* 1/2 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* 1/2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda1 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda1 (+ (* lambda1 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 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)))))))))
(+ (* (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)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (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))) (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (* (cos phi2) (pow (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/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 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)))
(+ (* (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 (+ 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))
(* 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 (+ (* (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 (+ (* (cos (* -1/2 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 (+ (* (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 (+ (* (cos (* -1/2 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 (+ (* (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 (+ (* (cos (* -1/2 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2)))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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 (- (* (cos (* 1/2 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)))))))
(* 2 (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 (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 (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 (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))))))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 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))))
(+ (* (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))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (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) (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* -1/2 (* lambda2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/2 (* lambda2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* lambda2 (+ (* 1/2 (* lambda2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* 1/2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* -1 (* lambda2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda2 (+ (* -1 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* lambda2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda2 (+ (* -1 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* lambda2 (+ (* lambda2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 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)))))))))
(+ (* (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)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (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))) (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (* (cos phi2) (pow (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/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 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)))
(+ (* (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 (* -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))
(* 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 (+ (* (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 (+ (* (cos (* -1/2 phi2)) (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 (+ (* (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 (+ (* (cos (* -1/2 phi2)) (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 (+ (* (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 (+ (* (cos (* -1/2 phi2)) (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2)))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(* 2 (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 (+ (* (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 (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (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 (- (* (cos (* 1/2 phi2)) (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)))))))
(* 2 (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 (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 (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 (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))))))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 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) (* (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))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (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)))
(+ (* (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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) (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 (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/48 (* phi1 (cos (* 1/2 phi2)))) (* -1/8 (sin (* 1/2 phi2))))))) (sin (* 1/2 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2)))
(+ (* 1/2 (* phi1 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3))))) (* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* phi1 (- (+ (* -1 (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (sin (* 1/2 phi2)))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (sin (* 1/2 phi2))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4)))))) (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (* phi1 (+ (* 1/2 (* phi1 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))))) (+ (* -1 (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi2) (sin (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (+ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))))) (pow (sin (* 1/2 phi2)) 2))) (+ (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))))) (sin (* 1/2 phi2))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (pow (sin (* 1/2 phi2)) 2)))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (sin (* 1/2 phi2)))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (sin (* 1/2 phi2))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4))))) (sin (* 1/2 phi2))) (+ (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (pow (sin (* 1/2 phi2)) 2)) (/ (* (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4))))))) (* 1/2 (- (+ (* -1 (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (sin (* 1/2 phi2)))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (sin (* 1/2 phi2))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4))))))))))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2)))))) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2)))))) (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (+ (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -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 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2)))))) (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2))))))) (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi2) (sin (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (+ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -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 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -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 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (* -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))
(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 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)))
(- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* -1 (* (pow phi1 2) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- 1/48 (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- (+ 1/48 (* -1 (* (pow phi1 2) (+ 1/1440 (* -1/720 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (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)))
(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) (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 (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)
(+ (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 phi1) (* (cos phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (* (cos phi2) (pow (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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (- 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 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 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ 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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (+ 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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)
(+ (* (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)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 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))
(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 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 (neg (+ phi2 (* -1 phi1))))
(cos (neg (+ phi2 (* -1 phi1))))
(cos (neg (+ phi2 (* -1 phi1))))
(cos (neg (+ phi2 (* -1 phi1))))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 phi1)))
(cos (- phi2 (* -1 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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 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/8 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 1/2 phi1))))))
(+ (sin (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (cos (* 1/2 phi1))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* 1/2 (* phi2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3))))) (* 1/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2))))
(+ (* 1/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* phi2 (- (+ (* -1 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1 (/ (* (cos (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (sin (* 1/2 phi1)))) (+ (* 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))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (+ (/ (* (cos (* 1/2 phi1)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (sin (* 1/2 phi1))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4)))))) (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))))))
(+ (* 1/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (* phi2 (+ (* 1/2 (* phi2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))))) (+ (* -1 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (+ (* -1 (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi1) (* -1 (sin phi1))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (pow (sin (* 1/2 phi1)) 2))) (+ (* 2 (/ (* (cos phi1) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (+ (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (pow (sin (* 1/2 phi1)) 2) (+ (* 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 (* 1/2 phi1)) (- (+ (* -1 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1 (/ (* (cos (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (sin (* 1/2 phi1)))) (+ (* 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))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (+ (/ (* (cos (* 1/2 phi1)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (sin (* 1/2 phi1))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4))))) (sin (* 1/2 phi1))) (+ (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (pow (sin (* 1/2 phi1)) 2)) (/ (* (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4))))))) (* 1/2 (- (+ (* -1 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1 (/ (* (cos (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (sin (* 1/2 phi1)))) (+ (* 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))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (+ (/ (* (cos (* 1/2 phi1)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (sin (* 1/2 phi1))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4))))))))))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* 2 (pow (sin (* 1/2 phi1)) 4)) (* phi2 (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1)))))) (+ (* 2 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3)))))))))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* 2 (pow (sin (* 1/2 phi1)) 4)) (* phi2 (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1)))))) (+ (* 2 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (+ (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3)))) (* phi2 (+ (* -1 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))))) (+ (* 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)))))) (* 2 (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))))))))))))))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* 2 (pow (sin (* 1/2 phi1)) 4)) (* phi2 (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1)))))) (+ (* 2 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (+ (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3)))) (* phi2 (+ (* -1 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))))) (+ (* 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)))))) (+ (* 2 (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (* phi2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1)))))) (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi1) (* -1 (sin phi1))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))) (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (+ (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (pow (sin (* 1/2 phi1)) 2) (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))))))))))))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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))
(+ (* (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) (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 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 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)
(+ (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 phi2) (pow (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))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (* (cos phi2) (pow (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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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)
(+ (* (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))) (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 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 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(cos (+ phi1 phi2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (* -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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(+ (* (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)))))))
(* 2 (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 (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 (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 (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))))))
(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)))))
(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)))))
(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)))))
(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)))))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (* -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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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)
(+ (* (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 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 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 (+ 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)))

Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (+ (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (+ (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 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 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) lambda1 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal -1/4 binary64))))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal -1/2 binary64))) lambda1)))) lambda1 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) lambda1 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #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 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #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 #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(+ (* 1/2 (* lambda1 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))))
(.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) lambda1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* 1/2 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))))
(fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) lambda1 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* 1/2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (.f64 (.f64 lambda1 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64))))) lambda1 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda1 (.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda1 (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) lambda1) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda1 (+ (* lambda1 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (fma.f64 (.f64 lambda1 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (+.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))))) lambda1 (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (* (pow (sin (* -1/2 lambda2)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (fma.f64 (fma.f64 (.f64 lambda1 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (.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 #s(literal -1/2 binary64) lambda2)) #s(literal 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)))) lambda1 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (+.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))))) lambda1 (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (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 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (* -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)))
(-.f64 (fma.f64 (neg.f64 (.f64 lambda1 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 1 binary64)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (* 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 #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (* 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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) lambda1 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) lambda1 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(fma.f64 (neg.f64 (.f64 lambda1 (cos.f64 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(fma.f64 (neg.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (.f64 #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (.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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi1)))) lambda1 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1))))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (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 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (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 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)))))))))
(fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 #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 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) lambda1 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 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 (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)))) #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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))
(* 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 (+ (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 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 (+ (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 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 (+ (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 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 (+ (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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)))) #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 (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)))
(+ (* (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 (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)))
(+ (* (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 (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)))
(* 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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))))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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))))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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))))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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))))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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)))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) #s(literal -1/2 binary64) (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) lambda2 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (.f64 (fma.f64 (.f64 (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 (.f64 (.f64 (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))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal -1/4 binary64))))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) lambda2)))) lambda2 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) lambda2 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 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 (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)))) #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 (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)))) #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 (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)))) #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 phi1) (cos.f64 phi2)) (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 (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)))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (+.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))))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(+ (* -1/2 (* lambda2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))))
(fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (+.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))))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* 1/2 (* lambda2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))))
(fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (+.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))))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) lambda2) (.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))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/2 binary64)) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda2))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (* lambda2 (+ (* 1/2 (* lambda2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* 1/2 (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (fma.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))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (.f64 (.f64 lambda2 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64))))) lambda2 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda2 (.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (+.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))))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (+.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 (* lambda2 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(fma.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) lambda2)) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (+.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))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda2 (+ (* -1 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* lambda2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (fma.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (+.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))) (.f64 (.f64 lambda2 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda2 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (+.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))))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+ (* lambda2 (+ (* -1 (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))) (* lambda2 (+ (* lambda2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (* (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (* (pow (sin (* 1/2 lambda1)) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (fma.f64 (fma.f64 (.f64 lambda2 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.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)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (.f64 (.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))) (+.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)))) lambda2 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) lambda2 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (+.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))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 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 #s(literal -1/2 binary64) lambda2) (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 (cos.f64 phi1) (cos.f64 phi2)) (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)))
(-.f64 (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1 binary64)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (- (* -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 phi1) (cos.f64 phi2))) (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) (cos.f64 phi2)) (.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 phi1) (cos.f64 phi2)) (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 (- (* 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 phi1) (cos.f64 phi2)) (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) (cos.f64 phi2)) (.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 phi1) (cos.f64 phi2)) (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 (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2))) (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) (cos.f64 phi2)) (.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (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) (cos.f64 phi2)) (.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (+ (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(fma.f64 (fma.f64 (neg.f64 (.f64 lambda2 (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)) (.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) lambda2 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1))))
(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 #s(literal -1/2 binary64) lambda2) (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2) (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2))) (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) (cos.f64 phi2)) (.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 phi1) (cos.f64 phi2)) (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) (cos.f64 phi2)) (.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 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 (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)))) #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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))
(* 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 (+ (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 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 (+ (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 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 (+ (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 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 (+ (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 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 (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)))) #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 (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)))
(+ (* (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 (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)))
(+ (* (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 (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)))
(* 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2) (* (pow (sin (* 1/2 (+ phi1 phi2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(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) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (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 (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))))
(+ (* (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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (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 (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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (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)))) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) phi1 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (+.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal -1/2 binary64))) phi1)))) phi1 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (* (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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (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 (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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 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)))
(+ (* -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 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(* -1 (sin (* 1/2 phi2)))
(neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(- (* 1/2 (* phi1 (cos (* 1/2 phi2)))) (sin (* 1/2 phi2)))
(-.f64 (.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)))
(- (* phi1 (+ (* 1/8 (* phi1 (sin (* 1/2 phi2)))) (* 1/2 (cos (* 1/2 phi2))))) (sin (* 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 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(- (* phi1 (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (- (* -1/48 (* phi1 (cos (* 1/2 phi2)))) (* -1/8 (sin (* 1/2 phi2))))))) (sin (* 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 #s(literal 1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2)))
(.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(+ (* 1/2 (* phi1 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3))))) (* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2))))
(.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (fma.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 3 binary64))))) phi1 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* phi1 (- (+ (* -1 (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (sin (* 1/2 phi2)))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (sin (* 1/2 phi2))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4)))))) (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (fma.f64 (/.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (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)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) #s(literal -1 binary64) (/.f64 (.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (fma.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 3 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))))) phi1 (-.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (fma.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 3 binary64))))))) phi1 (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+ (* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (* phi1 (+ (* 1/2 (* phi1 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2)))))) (+ (* -1 (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi2) (sin (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (+ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))))) (pow (sin (* 1/2 phi2)) 2))) (+ (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))))) (sin (* 1/2 phi2))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (pow (sin (* 1/2 phi2)) 2)))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (sin (* 1/2 phi2)))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (sin (* 1/2 phi2))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4))))) (sin (* 1/2 phi2))) (+ (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (pow (sin (* 1/2 phi2)) 2)) (/ (* (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4))))))) (* 1/2 (- (+ (* -1 (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (sin (* 1/2 phi2)))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))) (+ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))) (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (pow (sin (* 1/2 phi2)) 2))))) (+ (/ (* (cos (* 1/2 phi2)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))) (+ (* 2 (/ (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))) (/ (* (cos (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))) (sin (* 1/2 phi2))))) (/ (* (cos (* 1/2 phi2)) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 3)))) (sin (* 1/2 phi2))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))) (+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))) (pow (sin (* 1/2 phi2)) 4))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (neg.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (sin.f64 phi2) (sin.f64 phi2)))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (fma.f64 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.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)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (fma.f64 (/.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (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)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) #s(literal -1 binary64) (/.f64 (.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (fma.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 3 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (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 (-.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (fma.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 3 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (/.f64 (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64)))))) phi1 (-.f64 (fma.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (fma.f64 (/.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (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)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) #s(literal -1 binary64) (/.f64 (.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (fma.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 3 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 4 binary64))))))) phi1 (.f64 (-.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (fma.f64 (/.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 3 binary64))))) #s(literal 1/2 binary64))) phi1 (.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2)))))) (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2))))))))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))
(fma.f64 (fma.f64 (.f64 (neg.f64 (-.f64 (sin.f64 phi2) (sin.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) phi2)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) phi1 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2)))))) (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (+ (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -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 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))
(fma.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (fma.f64 (neg.f64 (.f64 (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (fma.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (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)))))) #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) #s(literal -1 binary64)) (.f64 (.f64 (.f64 #s(literal 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 (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) phi1 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))
(+ (* 2 (* (pow (sin (* -1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (pow (sin (* 1/2 phi2)) 2))) (* (cos (* 1/2 phi2)) (* (pow (sin (* -1/2 phi2)) 2) (sin (* 1/2 phi2)))))) (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi2) (sin (neg phi2))))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (cos (* 1/2 phi2)) (* (sin (* -1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))))) (+ (* phi1 (+ (* -1 (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi2)) (* -1/6 (sin (neg phi2))))))) (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi2) (sin (neg phi2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (+ (* 2 (+ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (+ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (+ (* (pow (sin (* -1/2 phi2)) 2) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))) (* (pow (sin (* 1/2 phi2)) 2) (+ (* -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 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2))))))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* -1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/2 (cos phi2)) (* -1/2 (cos (neg phi2)))))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (cos phi2) (cos (neg phi2))) (+ (* -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 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))))) (* (pow (sin (* 1/2 phi2)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (cos phi2) (cos (neg phi2)))))))
(fma.f64 (fma.f64 (neg.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (fma.f64 (fma.f64 (neg.f64 (.f64 (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (fma.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (sin.f64 phi2) (sin.f64 phi2))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (-.f64 (sin.f64 phi2) (sin.f64 phi2)) (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)))) (fma.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (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))) (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)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (.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)))))) #s(literal 2 binary64) (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) #s(literal -1 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 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 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (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)))))) #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) #s(literal -1 binary64)) (.f64 (.f64 (.f64 #s(literal 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 (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) phi1 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 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 (* -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)))))
(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 (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 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 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 (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 (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 (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 (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 (+ (* 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 (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 (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)))
(+ (* (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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (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 (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 (+ (* (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)))))
(- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (* -1 (* (pow phi1 2) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(fma.f64 (neg.f64 (.f64 phi1 phi1)) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- 1/48 (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(fma.f64 (fma.f64 (-.f64 #s(literal 1/48 binary64) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi1 phi1) (neg.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64) #s(literal 1/4 binary64)))) (.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (- (+ 1/48 (* -1 (* (pow phi1 2) (+ 1/1440 (* -1/720 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (* 1/24 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(fma.f64 (fma.f64 (fma.f64 (neg.f64 (.f64 phi1 phi1)) (fma.f64 #s(literal -1/720 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/1440 binary64)) (-.f64 #s(literal 1/48 binary64) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi1 phi1) (neg.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64) #s(literal 1/4 binary64)))) (.f64 phi1 phi1) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 #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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (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 (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))))
(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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) 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)))
(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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) 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 (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 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (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 (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 (+ (* (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 (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))
(cos phi2)
(cos.f64 phi2)
(+ (cos phi2) (* -1 (* phi1 (sin phi2))))
(fma.f64 (neg.f64 phi1) (sin.f64 phi2) (cos.f64 phi2))
(+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (sin phi2))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (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 phi1) (* (cos phi2) (pow (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 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 (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)))) #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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(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))
(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))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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))
(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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi2 (* -1 phi1))))) (sqrt (+ (* 2 (* (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2) (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi2 (* -1 phi1)))) 2) (+ (cos (neg (+ phi2 (* -1 phi1)))) (cos (- phi2 (* -1 phi1))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(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))
(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))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.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 phi1) (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 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(cos (neg (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(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 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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 (+ (* (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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) phi2) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (+.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64) (.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) phi2)))) phi2 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(+ (* (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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 (sin (* 1/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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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))))
(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/8 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 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 (- (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))) (* 1/2 (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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) 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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2)))
(.f64 (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(+ (* 1/2 (* phi2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3))))) (* 1/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2))))
(.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64) (/.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))))) phi2 (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(+ (* 1/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* phi2 (- (+ (* -1 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1 (/ (* (cos (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (sin (* 1/2 phi1)))) (+ (* 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))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (+ (/ (* (cos (* 1/2 phi1)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (sin (* 1/2 phi1))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4)))))) (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 2 binary64) (fma.f64 (cos.f64 phi1) (/.f64 (.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))) (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) phi1)) #s(literal 2 binary64))) (/.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 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))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64) (/.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))))) phi2 (-.f64 (fma.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64) (/.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))))))) phi2 (.f64 (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+ (* 1/2 (/ (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (* phi2 (+ (* 1/2 (* phi2 (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1))))) (+ (* -1 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (+ (* -1 (/ (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi1) (* -1 (sin phi1))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (pow (sin (* 1/2 phi1)) 2))) (+ (* 2 (/ (* (cos phi1) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (+ (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (pow (sin (* 1/2 phi1)) 2) (+ (* 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 (* 1/2 phi1)) (- (+ (* -1 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1 (/ (* (cos (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (sin (* 1/2 phi1)))) (+ (* 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))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (+ (/ (* (cos (* 1/2 phi1)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (sin (* 1/2 phi1))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4))))) (sin (* 1/2 phi1))) (+ (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (pow (sin (* 1/2 phi1)) 2)) (/ (* (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4))))))) (* 1/2 (- (+ (* -1 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1 (/ (* (cos (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (sin (* 1/2 phi1)))) (+ (* 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))))) (pow (sin (* 1/2 phi1)) 2))) (* 2 (/ (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (+ (/ (* (cos (* 1/2 phi1)) (- (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))) (+ (* 2 (/ (* (cos phi1) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (sin (* 1/2 phi1)))) (* 2 (/ (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (pow (sin (* 1/2 phi1)) 2))))) (/ (* (cos (* 1/2 phi1)) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 3)))) (sin (* 1/2 phi1))) (/ (* (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))) (pow (sin (* 1/2 phi1)) 4))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (neg.f64 (cos.f64 phi1)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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)) (/.f64 (.f64 #s(literal 0 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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (fma.f64 (cos.f64 phi1) (/.f64 (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/6 binary64)) (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) phi1)) #s(literal 2 binary64))) (/.f64 (fma.f64 #s(literal 0 binary64) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 0 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 2 binary64) (fma.f64 (cos.f64 phi1) (/.f64 (.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))) (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) phi1)) #s(literal 2 binary64))) (/.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 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))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64) (/.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (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))) (/.f64 (-.f64 (fma.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64) (/.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/6 binary64)) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64)))))) phi2 (-.f64 (fma.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 #s(literal 2 binary64) (fma.f64 (cos.f64 phi1) (/.f64 (.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))) (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) phi1)) #s(literal 2 binary64))) (/.f64 (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 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))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (fma.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64) (/.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (/.f64 (.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 4 binary64))))))) phi2 (.f64 (-.f64 (fma.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64) (/.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))))) #s(literal 1/2 binary64))) phi2 (.f64 (/.f64 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 2 (pow (sin (* 1/2 phi1)) 4)))
(.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64))))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* 2 (pow (sin (* 1/2 phi1)) 4)) (* phi2 (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1)))))) (+ (* 2 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3)))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (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) phi1)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 0 binary64)))) phi2 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* 2 (pow (sin (* 1/2 phi1)) 4)) (* phi2 (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1)))))) (+ (* 2 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (+ (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3)))) (* phi2 (+ (* -1 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))))) (+ (* 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)))))) (* 2 (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))))))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (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) phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (neg.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (fma.f64 (.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (cos.f64 phi1) (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) phi2 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 0 binary64))))) phi2 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))))
(+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* 2 (pow (sin (* 1/2 phi1)) 4)) (* phi2 (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1)))))) (+ (* 2 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (+ (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3))) (* (cos (* 1/2 phi1)) (pow (sin (* 1/2 phi1)) 3)))) (* phi2 (+ (* -1 (* (cos phi1) (* (pow (sin (* 1/2 phi1)) 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (sin phi1) (* -1 (sin phi1))))))) (+ (* 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)))))) (+ (* 2 (+ (* -1 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (* 2 (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (* phi2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (+ (* -1 (* (pow (sin (* 1/2 phi1)) 2) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/6 (sin phi1)) (* 1/6 (sin phi1)))))) (+ (* -1 (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (+ (sin phi1) (* -1 (sin phi1))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (+ (* 2 (* (cos phi1) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))) (* 2 (+ (* -1 (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (+ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (+ (* (pow (sin (* 1/2 phi1)) 2) (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (pow (sin (* 1/2 phi1)) 2) (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))))))))))))))))
(fma.f64 (fma.f64 (.f64 #s(literal 0 binary64) (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) phi1)) #s(literal 2 binary64)) (fma.f64 (fma.f64 (neg.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 0 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (fma.f64 (neg.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 0 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)))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (fma.f64 (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal -1/6 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (cos.f64 phi1) (fma.f64 #s(literal 0 binary64) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 0 binary64))))) (.f64 (.f64 #s(literal 0 binary64) (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) phi1)) #s(literal 2 binary64)))))) phi2 (.f64 #s(literal 2 binary64) (fma.f64 (.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (cos.f64 phi1) (fma.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal 2 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 0 binary64))))) phi2 (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64)))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 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 (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)))) (neg.f64 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)))))
(- (+ 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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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)))
(+ (* (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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 (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)))) (neg.f64 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)))))
(- (+ 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) (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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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))))
(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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) 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)))
(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 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) 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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 (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)))) (neg.f64 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)))))
(- (+ 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.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 (cos.f64 phi1) phi2) #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))
(cos phi1)
(cos.f64 phi1)
(+ (cos phi1) (* -1 (* phi2 (sin phi1))))
(fma.f64 (neg.f64 (sin.f64 phi1)) phi2 (cos.f64 phi1))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (sin phi1))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) phi2) #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 (.f64 (sin.f64 phi1) phi2) #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) phi2 (neg.f64 (sin.f64 phi1))) phi2 (cos.f64 phi1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 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 (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)))) #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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))) (pow (sin (* 1/2 (+ phi1 phi2))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 (* (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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 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 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (+ phi1 phi2)))) (sqrt (+ (* 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 (- lambda1 lambda2))) 2) (+ (cos (+ phi1 phi2)) (cos (- phi1 phi2)))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(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))
(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))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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))
(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 (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (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 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64))))))
(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)))))
(atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 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 (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)))) #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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(+ (* (cos phi1) (* (cos phi2) (pow (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 (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)))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2))))
(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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 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 (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 (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(* 1/2 (/ (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2)))
(.f64 (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (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))) #s(literal 1/2 binary64))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2)))))))
(fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (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 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(* 2 (atan2 (* (/ (sqrt 1/2) (sin (* 1/2 (- phi1 (* -1 phi2))))) (sqrt (+ (* 2 (* (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2) (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2))) (* (pow (sin (* 1/2 (- lambda1 lambda2))) 2) (* (pow (sin (* 1/2 (- phi1 (* -1 phi2)))) 2) (+ (cos (+ phi1 (* -1 phi2))) (cos (- phi1 (* -1 phi2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal 2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #s(literal 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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 (cos.f64 phi1) (cos.f64 phi2)) (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))))
(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))
(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))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #s(literal 2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (.f64 (cos.f64 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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 phi1) (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 phi1 phi2))) #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))
(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))

rewrite416.0ms (1%)

Memory

-15.8MiB live, 455.8MiB allocated

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	149	1968
0	263	1817
1	810	1594
2	5331	1594
0	8779	1561

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Counts

36 → 1 085

Calls

Call 1

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

Outputs
(.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (pow.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(.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))) #s(literal 1 binary64))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) #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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 #s(literal 1 binary64) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (-.f64 (.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 (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (neg.f64 (fma.f64 (.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 (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 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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 (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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 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))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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) (.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)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)) #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))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #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))))
(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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))
(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)))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.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 (.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))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1 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))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.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))) #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (pow.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 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (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 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 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (.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))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 1 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)))) (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 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (pow.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(.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))) #s(literal 1 binary64))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) #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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 #s(literal 1 binary64) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (-.f64 (.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 (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (neg.f64 (fma.f64 (.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 (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 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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 (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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 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))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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) (.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)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)) #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))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #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))))
(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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))
(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)))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.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 (.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))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1 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))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.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))) #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (pow.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 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (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 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 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (.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))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 1 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)))) (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 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64))
(.f64 (.f64 R #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) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(.f64 (.f64 (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) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64)) R)
(.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) (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 R #s(literal 2 binary64)))
(.f64 R (.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) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64)))
(.f64 #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) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) R))
(.f64 (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) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(.f64 #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) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))) #s(literal 2 binary64))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 R #s(literal 2 binary64)))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))
(atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(.f64 (pow.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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)))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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)))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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)))))
(exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #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 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (pow.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(.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))) #s(literal 1 binary64))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) #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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 #s(literal 1 binary64) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (-.f64 (.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 (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (neg.f64 (fma.f64 (.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 (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 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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 (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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.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 (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 1/2 binary64))) #s(literal 4 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 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))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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) (.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)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)) #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))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #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))))
(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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))
(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)))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 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)))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.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 (.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))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #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))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 #s(literal 1 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)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1 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)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #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))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1 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))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 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 #s(literal 1 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)))))
(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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.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))) #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (pow.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 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (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 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 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 (.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))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 1 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)))) (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 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.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))) #s(literal 1 binary64)))
(+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) R))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))) (pow.f64 (fma.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) #s(literal -1 binary64)))
(pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(/.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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))) (neg.f64 (fma.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #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)))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/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)) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (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 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))) (/.f64 (pow.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))))
(+.f64 (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (sin.f64 (*.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 1 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (+.f64 phi2 phi1) #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 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 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))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)))
(.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (+.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))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (+.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))) (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(.f64 #s(literal 1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal 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 2 binary64)) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (neg.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) (neg.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 #s(literal 1 binary64) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) (.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 4 binary64))
(/.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 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 binary64)) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))
(/.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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(neg.f64 (/.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))) (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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.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))) (cos.f64 (*.f64 phi1 #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)))))
(fma.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 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 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (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)))))
(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 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(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)))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(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)))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))))
(-.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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (neg.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.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)))))
(+.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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)))))))) #s(literal 2 binary64))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #s(literal 2 binary64)))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))))) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))))) R))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 (pow.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (pow.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 3 binary64)))) #s(literal -1 binary64)) (pow.f64 (fma.f64 (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64))))) #s(literal -1 binary64)))
(.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal 2 binary64) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))))) #s(literal -1 binary64)))
(.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (pow.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))))) (pow.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(pow.f64 (/.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))))) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))))) #s(literal -1 binary64))
(/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64))))))
(/.f64 (.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))) #s(literal 1 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))))) (neg.f64 (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 2 binary64))) #s(literal 1 binary64)) (.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 3 binary64))) #s(literal 1 binary64)) (.f64 (fma.f64 (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 3 binary64))) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))))))
(neg.f64 (/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -2 binary64) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(exp.f64 (.f64 (log.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))))) #s(literal -1 binary64)))
(.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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)))) #s(literal -1 binary64)))
(.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 3 binary64))) (pow.f64 (fma.f64 (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64))))) #s(literal -1 binary64)))
(pow.f64 (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 2 binary64)) (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 2 binary64))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (.f64 (+.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))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 3 binary64))) (fma.f64 (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 4 binary64) (.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64))))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 6 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 3 binary64)))))
(fma.f64 (.f64 (.f64 (+.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))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(fma.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))))
(fma.f64 (.f64 (+.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))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #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)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))))
(fma.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #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 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))))
(fma.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))))
(fma.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))))
(fma.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (+.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))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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))) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(+.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))))))) #s(literal 2 binary64))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) R))
(.f64 (atan2.f64 (sqrt.f64 (.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.f64 (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))))
(.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1 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 (.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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(+.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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (pow.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(pow.f64 (/.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (+.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (neg.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)))) (neg.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 #s(literal 1 binary64) (neg.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 (-.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) (fma.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.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)))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (neg.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)))) (neg.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 #s(literal 1 binary64) (neg.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 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))) (neg.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64))) (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) (neg.f64 (.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)))))
(fma.f64 #s(literal -1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(-.f64 (pow.f64 (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)) (/.f64 (pow.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))) #s(literal 3 binary64)) (fma.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 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1 binary64))))
(-.f64 (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (/.f64 (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.f64 (cos.f64 phi2) (cos.f64 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)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (neg.f64 (.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 (neg.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)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.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 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)))
(.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 2 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)))
(.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal -1 binary64) (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 2 binary64))
(pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal -1 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (-.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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal -1 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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/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) (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 (+.f64 phi2 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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 (+.f64 phi2 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) (.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (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 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (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 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (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 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (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 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 (+.f64 phi2 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 (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 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))))
(/.f64 #s(literal -1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))))
(/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 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))) (cos.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 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)))) (.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 (.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))) (cos.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #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 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))) #s(literal -1 binary64)))
(exp.f64 (.f64 (neg.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal -2 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 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 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))) (cos.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (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 (-.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))) (cos.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi2 #s(literal -1/2 binary64))) (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 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -2 binary64)))
(.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 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 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 2 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 2 binary64)))
(.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal -1 binary64) (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 2 binary64))
(pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal -1 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (-.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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal -1 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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/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) (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))))))
(/.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 (+.f64 phi2 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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 (+.f64 phi2 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) (.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (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 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (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 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (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 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (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 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 (+.f64 phi2 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 (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 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))))
(/.f64 #s(literal -1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (pow.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64))))
(/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 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))) (cos.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 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)))) (.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 (.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))) (cos.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #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 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))) #s(literal -1 binary64)))
(exp.f64 (.f64 (neg.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal -2 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 1 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 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))) (cos.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (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 (-.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))) (cos.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi2 #s(literal -1/2 binary64))) (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))))))
#s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
#s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(.f64 (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 1 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 (.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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(+.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 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.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))))))
#s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (sin.f64 (*.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 1 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (+.f64 phi2 phi1) #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 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 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))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)))
(.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (+.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))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (+.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))) (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(.f64 #s(literal 1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal 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 2 binary64)) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (neg.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) (neg.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 #s(literal 1 binary64) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) (.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 4 binary64))
(/.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 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 binary64)) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))
(/.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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(neg.f64 (/.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))) (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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.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))) (cos.f64 (*.f64 phi1 #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)))))
(fma.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 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 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (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)))))
(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 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(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)))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(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)))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))))
(-.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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (neg.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.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)))))
(+.f64 (.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 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (sin.f64 (*.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 1 binary64)) (pow.f64 (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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)) #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 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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)) #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 (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (pow.f64 (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (.f64 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (+.f64 phi2 phi1) #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 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (.f64 (sin.f64 (.f64 (+.f64 phi2 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))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (pow.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))) #s(literal -1 binary64)))
(.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (+.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))) (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (+.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))) (pow.f64 (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 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) #s(literal -1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(.f64 #s(literal 1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(pow.f64 (/.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal 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 2 binary64)) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (neg.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))) (neg.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 #s(literal 1 binary64) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) (.f64 (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 4 binary64))
(/.f64 (pow.f64 (sin.f64 (.f64 (+.f64 phi2 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 binary64)) (sin.f64 (*.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))
(/.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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(/.f64 (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (pow.f64 (.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(neg.f64 (/.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))) (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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.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))) (cos.f64 (*.f64 phi1 #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)))))
(fma.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 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 phi2 #s(literal -1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (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)))))
(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 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(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)))))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(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)))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1)))))
(-.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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 (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 (neg.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.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)))))
(+.f64 (.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(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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)))) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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)))))
#s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (cos.f64 (+.f64 phi2 phi1)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(fma.f64 (cos.f64 (/.f64 (.f64 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 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1)))) (cos.f64 (/.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1)))) (.f64 (sin.f64 (/.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1)))) (sin.f64 (/.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (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 (-.f64 phi1 phi2) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (sin.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 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 (-.f64 phi2 phi1))
(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 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1)))) (cos.f64 (/.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1))))) (.f64 (sin.f64 (/.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1)))) (sin.f64 (/.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (.f64 phi1 phi1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (cos.f64 (-.f64 phi2 phi1)))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(fma.f64 (cos.f64 (/.f64 (.f64 phi2 phi2) (-.f64 phi2 phi1))) (cos.f64 (/.f64 (.f64 phi1 phi1) (-.f64 phi2 phi1))) (.f64 (sin.f64 (/.f64 (.f64 phi2 phi2) (-.f64 phi2 phi1))) (sin.f64 (/.f64 (*.f64 phi1 phi1) (-.f64 phi2 phi1)))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (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 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (neg.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(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) (neg.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(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) (neg.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 (-.f64 (-.f64 (-.f64 phi1 phi2) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 (-.f64 phi2 (+.f64 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 phi1 phi2) phi2) phi1) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (neg.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(cos.f64 (+.f64 phi2 phi1))
(+.f64 (.f64 (cos.f64 (/.f64 (.f64 phi2 phi2) (-.f64 phi2 phi1))) (cos.f64 (/.f64 (.f64 phi1 phi1) (-.f64 phi2 phi1)))) (.f64 (sin.f64 (/.f64 (.f64 phi2 phi2) (-.f64 phi2 phi1))) (sin.f64 (/.f64 (.f64 phi1 phi1) (-.f64 phi2 phi1)))))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2))))

eval1.2s (2.8%)

Memory: -180.2MiB live, 1 078.2MiB allocated
Compiler: Compiled 389 066 to 11 569 computations (97% saved)

prune1.6s (3.8%)

Memory

11.5MiB live, 2 142.9MiB allocated

Pruning

224 alts after pruning (223 fresh and 1 done)

	Pruned	Kept	Total
New	3 024	86	3 110
Fresh	59	137	196
Picked	4	1	5
Done	0	0	0
Total	3 087	224	3 311

Accuracy

78.0%

Counts

3 311 → 224

Alt Table

Click to see full alt table

Status	Accuracy	Program
	59.5%	(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))
	35.8%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #s(literal 2 binary64)))
	44.0%	(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	36.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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))))))))))
	33.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (pow.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)))))))))
	45.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	47.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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)))))))))
	38.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	39.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	39.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	34.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	36.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(approx (cos (+ phi2 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) phi2 (cos.f64 phi1)))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	31.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(approx (cos (+ phi2 phi1)) (cos.f64 phi2))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	58.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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.5%	(.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 #s(approx (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	46.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	43.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	36.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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)))))))))
	35.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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)))))))))
	36.8%	(.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))) (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	53.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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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)) (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #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))))))))))
	60.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) (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 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)))))))))
	75.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
	48.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 (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 (.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) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	58.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
	75.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 (/.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 2 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (-.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 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	71.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 (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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 2 binary64)) (.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)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	75.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)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	35.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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))))))))))
	39.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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 (neg.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))))))))))
	39.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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.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 #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))))))))))
	57.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 (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))))))))
	57.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 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* -1/2 phi2)) (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 (cos.f64 phi1) (cos.f64 phi2)) (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)))))))))
	58.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) #s(approx (+ (pow (+ (* (sin (* -1/2 phi2)) (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 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)))))))))
	50.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 (* -1/2 phi2)) (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 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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))))))))))
	43.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 (* -1/2 phi2)) (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 (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)))))))))
	50.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 #s(approx (- 1 (+ (pow (+ (* (sin (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1 binary64)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)))))))))
	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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	20.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	48.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	70.3%	(.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 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	33.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 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)) (sin.f64 (.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 (pow.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)))))))))
	45.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	45.2%	(.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	47.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	35.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	48.9%	(.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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	60.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	36.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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)))))))))
	70.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	49.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
	49.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	46.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	37.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	37.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	34.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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)))))))))
	36.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	28.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	31.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	30.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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)))))))))
	37.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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)))))))))
	24.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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)))))))))
	15.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.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))) #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)) (sin.f64 (.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 (pow.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)))))))))
	33.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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	22.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 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	44.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	59.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 (-.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (+.f64 #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)))))))
	23.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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (.f64 #s(literal 2 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))))))))))
	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 (.f64 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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))))))))))
	47.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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))))))))))
	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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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))))))))))
	14.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 (/.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.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 (/.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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
	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 #s(literal 2 binary64) (.f64 (/.f64 #s(literal 2 binary64) phi1) phi2)) (.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.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 (/.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 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	49.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 (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))))))))))
	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 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 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))
	48.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)))))))))
	41.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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)))))))))
	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) #s(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)))))))))
	47.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 #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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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))))))))
	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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	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)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
	37.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	39.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 #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 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) lambda2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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)))))))
	56.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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	14.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 (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))))))))))
	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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
	34.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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)))))))))
	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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 (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))))))))))
	34.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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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))))))))
	33.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	34.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	52.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 (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))))))))))
	40.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.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)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.3%	(.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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	40.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	29.2%	(.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 (fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64))))))))
	36.4%	(.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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64))))))))
	41.4%	(.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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
	41.4%	(.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 (fma.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)))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))))
	41.5%	(.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 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 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.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) (+.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	39.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) (+.f64 (pow.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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))))))))))
	32.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
	33.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
	40.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.9%	(.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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))))))))))
	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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	29.3%	(.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 #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 #s(literal -1/2 binary64) phi2)) #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))))))))
	41.3%	(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	29.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	26.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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)))))))))
	35.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (-.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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)))))))))
	22.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (.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 (pow.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)))))))))
	31.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (neg.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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)))))))))
	45.3%	(.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 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))
	28.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	53.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	47.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	58.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (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 (.f64 (cos.f64 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%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #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)))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	57.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	20.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	43.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	41.9%	(.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) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 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 #s(approx (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 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.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	43.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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))))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))))))))
	43.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 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.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	35.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	42.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
	31.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
	33.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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)))))))))
	33.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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)))))))))
	42.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	31.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	30.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #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)))))))))
	29.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (pow.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)))))))))
	32.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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 (pow.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)))))))))
	49.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.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 (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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	37.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	37.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	43.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	50.8%	(.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 (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (pow.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 (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 (.f64 (cos.f64 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 #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 (pow.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 (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 (.f64 (cos.f64 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 #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 (pow.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))))))))))
	54.7%	(.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 phi1) (cos.f64 phi2)) (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 (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 (*.f64 (cos.f64 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.7%	(.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (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 (*.f64 (cos.f64 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.6%	(.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) (+.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 (*.f64 (cos.f64 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.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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	32.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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	44.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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	32.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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	31.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	31.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	37.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (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))))))))))
	44.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 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))))))))))
	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 (pow.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	44.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	35.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 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
	36.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	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 (pow.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 6 binary64)) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 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 (pow.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	35.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)))))))))
	36.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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 (pow.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1 binary64))))))))
	32.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 (pow.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))
✓	32.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	28.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)))))))))
	27.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)))))))))
	25.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	33.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	25.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	25.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	32.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	31.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	24.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	33.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	24.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	28.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 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	33.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
	46.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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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))))))))))
	33.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	26.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	26.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	41.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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))))))))))
	33.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
	33.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
	34.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 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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))))))))))
	40.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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)))))))))
	36.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
	28.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 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	23.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 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	31.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
	60.9%	(.f64 R #s(approx ( 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))))
	75.8%	(.f64 R #s(approx ( 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))))
	75.8%	#s(approx (* 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 1/2)) (cos (* 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #s(literal 2 binary64))))))))

Compiler

Compiled 64 011 to 15 087 computations (76.4% saved)

regimes1.9s (4.6%)

Memory

14.0MiB live, 2 880.4MiB allocated

Counts

397 → 1

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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)) (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 (-.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 #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 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (neg.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 #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)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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))))) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.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))))))))))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #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 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (-.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #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 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.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)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal -1/2 binary64) lambda2) (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 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (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))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.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))) #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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(approx (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (pow.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 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi2)) #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 #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 #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 (pow.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 (* 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 (pow.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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (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))))) #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) #s(approx (+ (pow (sin (/ (- phi1 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 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) lambda2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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))))))))))
(.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (pow.f64 (+.f64 phi2 phi1) #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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 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)) (pow.f64 (+.f64 lambda2 lambda1) #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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (.f64 #s(literal 2 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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) 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)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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 #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 #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)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R #s(approx ( 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (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 (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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (fma.f64 (neg.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (* -1/2 phi2)) (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 (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- 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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 #s(approx (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 #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 (fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.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)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (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 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (.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)))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.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)))))) #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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (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 (/ (- 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(approx (cos (+ phi2 phi1)) (cos.f64 phi2))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 4 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (+.f64 #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)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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))))))))))
(.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(approx (cos (+ phi2 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) phi2 (cos.f64 phi1)))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.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 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 (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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 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 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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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))))))))))
(.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 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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 (neg.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 (.f64 phi1 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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(approx ( 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi1) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
#s(approx (* 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 1/2)) (cos (* 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (* -1/2 phi2)) (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 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)))))))))
(.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 (* -1/2 phi2)) (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 (cos.f64 phi1) (cos.f64 phi2)) (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)))))))))
(.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #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 phi1) (cos.f64 phi2)) (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) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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) (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 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)))) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (fma.f64 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.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 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (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))) (+.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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 #s(literal -1/2 binary64) lambda2) (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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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)) (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (pow.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.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))) #s(literal 2 binary64))) (pow.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 -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 (-.f64 (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 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #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)))) #s(literal -1 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (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)))))))))))
(.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1 binary64)) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)))))))))
(.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 (* -1/2 phi2)) (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 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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))))))))))
(.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))))) (fma.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi1) (-.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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.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 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (pow.f64 (.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 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (-.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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal -1 binary64)) #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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 8 binary64)) (pow.f64 (.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))) #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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.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 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (pow.f64 (.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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 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 2 binary64)) (.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)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 6 binary64)) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 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 (fma.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64))))))))
(.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)))) (fma.f64 (.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 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* 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 (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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 (+.f64 (pow.f64 (.f64 (.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))) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (.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))) #s(literal 1 binary64)) (.f64 (.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))) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64))) (.f64 (.f64 (.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))) #s(literal 1 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) #s(literal 1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (fma.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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) (+.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 (+.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)))) (pow.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))) #s(literal 2 binary64)))) (.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) (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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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))))))))))))

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 (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 (*.f64 (cos.f64 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:

269.0ms	phi2
214.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))))))))))
197.0ms	R
171.0ms	phi1
148.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))

Results

Accuracy	Segments	Branch
75.8%	1	`R`
75.8%	1	`lambda1`
75.8%	1	`lambda2`
75.8%	1	`phi1`
75.8%	1	`phi2`
75.8%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
75.8%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
75.8%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
75.8%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
75.8%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
75.8%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
75.8%	1	`(-.f64 lambda1 lambda2)`

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes1.3s (3.2%)

Memory

17.4MiB live, 1 767.9MiB allocated

Counts

329 → 1

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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)) (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 (-.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 #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 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (neg.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 #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)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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))))) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.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))))))))))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #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 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (-.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #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 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.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)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal -1/2 binary64) lambda2) (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 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (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))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.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))) #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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(approx (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (pow.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 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi2)) #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 #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 #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 (pow.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 (* 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 (pow.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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (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))))) #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) #s(approx (+ (pow (sin (/ (- phi1 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 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) lambda2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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))))))))))
(.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (pow.f64 (+.f64 phi2 phi1) #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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 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)) (pow.f64 (+.f64 lambda2 lambda1) #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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (.f64 #s(literal 2 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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) 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)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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 #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 #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)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R #s(approx ( 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (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 (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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (fma.f64 (neg.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (* -1/2 phi2)) (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 (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- 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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 #s(approx (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 #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 (fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.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)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (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 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (.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)))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.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)))))) #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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (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 (/ (- 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(approx (cos (+ phi2 phi1)) (cos.f64 phi2))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 4 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (+.f64 #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)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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))))))))))
(.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(approx (cos (+ phi2 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) phi2 (cos.f64 phi1)))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.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 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 (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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 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 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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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))))))))))
(.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 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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 (neg.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 (.f64 phi1 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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(approx ( 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi1) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
#s(approx (* 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 1/2)) (cos (* 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (* -1/2 phi2)) (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 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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)))))))))
(.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 (* -1/2 phi2)) (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 (cos.f64 phi1) (cos.f64 phi2)) (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)))))))))
(.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #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 phi1) (cos.f64 phi2)) (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) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #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 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))

Outputs

#s(approx (* 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 1/2)) (cos (* 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #s(literal 2 binary64))))))))

Calls

12 calls:

185.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
129.0ms	(-.f64 lambda1 lambda2)
103.0ms	phi2
102.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
100.0ms	lambda2

Results

Accuracy	Segments	Branch
75.8%	1	`R`
75.8%	1	`phi1`
75.8%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
75.8%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
75.8%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
75.8%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
75.8%	1	`lambda1`
75.8%	1	`lambda2`
75.8%	1	`phi2`
75.8%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
75.8%	1	`(-.f64 lambda1 lambda2)`
75.8%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes1.2s (2.8%)

Memory

-6.2MiB live, 1 300.0MiB allocated

Counts

315 → 1

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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)) (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 (-.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 #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 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (neg.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 #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)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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))))) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.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))))))))))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #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 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (-.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #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 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.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)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal -1/2 binary64) lambda2) (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 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (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))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.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))) #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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(approx (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (pow.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 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi2)) #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 #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 #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 (pow.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 (* 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 (pow.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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (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))))) #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) #s(approx (+ (pow (sin (/ (- phi1 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 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) lambda2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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))))))))))
(.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (pow.f64 (+.f64 phi2 phi1) #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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 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)) (pow.f64 (+.f64 lambda2 lambda1) #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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (.f64 #s(literal 2 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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) 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)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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 #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 #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)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R #s(approx ( 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (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 (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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (fma.f64 (neg.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (* -1/2 phi2)) (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 (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- 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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 #s(approx (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 #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 (fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.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)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (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 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (.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)))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.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)))))) #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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (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 (/ (- 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(approx (cos (+ phi2 phi1)) (cos.f64 phi2))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 4 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (+.f64 #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)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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))))))))))
(.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(approx (cos (+ phi2 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) phi2 (cos.f64 phi1)))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.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 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 (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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 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 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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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))))))))))
(.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 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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 (neg.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 (.f64 phi1 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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(approx ( 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (cos.f64 phi1) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 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)) (.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)) (.f64 (pow.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))

Outputs

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

Calls

12 calls:

131.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)))))))))
99.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)))))
98.0ms	R
96.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))))))))
91.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
75.8%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
75.8%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
75.8%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
75.8%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
75.8%	1	`R`
75.8%	1	`lambda1`
75.8%	1	`lambda2`
75.8%	1	`phi1`
75.8%	1	`phi2`
75.8%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
75.8%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
75.8%	1	`(-.f64 lambda1 lambda2)`

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes1.4s (3.3%)

Memory

-5.6MiB live, 1 437.9MiB allocated

Counts

312 → 1

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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)) (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 (-.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 #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 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (neg.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 #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)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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))))) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.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))))))))))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #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 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (-.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #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 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.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)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal -1/2 binary64) lambda2) (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 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (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))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.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))) #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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(approx (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (pow.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 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi2)) #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 #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 #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 (pow.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 (* 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 (pow.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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (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))))) #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) #s(approx (+ (pow (sin (/ (- phi1 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 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) lambda2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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))))))))))
(.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (pow.f64 (+.f64 phi2 phi1) #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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 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)) (pow.f64 (+.f64 lambda2 lambda1) #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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (.f64 #s(literal 2 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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) 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)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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 #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 lambda2) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (cos.f64 (.f64 #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)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R #s(approx ( 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.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 (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 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 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))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (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 (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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (fma.f64 (neg.f64 lambda2) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (* -1/2 phi2)) (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 (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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- 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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 #s(approx (pow (+ (* (sin (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (* 1/2 phi1)) (cos (* -1/2 phi2))) (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2)))) 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 #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 (fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.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)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (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 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #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 (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 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (.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)))) #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.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)))))) #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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (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 (/ (- 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(approx (cos (+ phi2 phi1)) (cos.f64 phi2))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 4 binary64))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (+.f64 #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)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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))))))))))
(.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (pow.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(approx (cos (+ phi2 phi1)) (fma.f64 (neg.f64 (sin.f64 phi1)) phi2 (cos.f64 phi1)))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 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)) (sin.f64 (.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 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.f64 (.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (.f64 (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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64)))) #s(literal -2 binary64)) (pow.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (.f64 (.f64 #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 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (fma.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 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 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 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 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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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))))))))))
(.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 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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 (neg.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) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (fma.f64 (.f64 phi1 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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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))))))))))

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 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 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))))))))))

Calls

12 calls:

171.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))))))))
145.0ms	lambda2
136.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
124.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
111.0ms	lambda1

Results

Accuracy	Segments	Branch
60.9%	1	`R`
60.9%	1	`lambda1`
60.9%	1	`lambda2`
60.9%	1	`phi1`
60.9%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
60.9%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
60.9%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
60.9%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
60.9%	1	`phi2`
60.9%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
60.9%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
60.9%	1	`(-.f64 lambda1 lambda2)`

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes1.0s (2.5%)

Memory

29.0MiB live, 1 294.6MiB allocated

Counts

231 → 2

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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)) (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 (-.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 #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 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (neg.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 #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)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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))))) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.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))))))))))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #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 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (-.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #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 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.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)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal -1/2 binary64) lambda2) (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 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (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))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.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))) #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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(approx (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (pow.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 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi2)) #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 #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 #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 (pow.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 (* 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 (pow.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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (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))))) #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) #s(approx (+ (pow (sin (/ (- phi1 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 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) lambda2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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))))))))))
(.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (pow.f64 (+.f64 phi2 phi1) #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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 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)) (pow.f64 (+.f64 lambda2 lambda1) #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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (.f64 #s(literal 2 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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) 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)))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))

(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 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 (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 (*.f64 (cos.f64 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:

112.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))))))))
99.0ms	R
98.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))))))))))
91.0ms	lambda2
91.0ms	lambda1

Results

Accuracy	Segments	Branch
59.5%	1	`R`
61.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))))))))))
59.5%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
59.5%	1	`lambda2`
59.5%	1	`phi2`
61.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)))))))))
61.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))))))))
61.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)))))`
59.5%	1	`phi1`
59.5%	1	`lambda1`
59.5%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
59.5%	1	`(-.f64 lambda1 lambda2)`

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes242.0ms (0.6%)

Memory

-0.8MiB live, 313.4MiB allocated

Counts

228 → 2

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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)) (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 (-.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 #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 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (neg.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 #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)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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))))) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.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))))))))))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #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 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (-.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #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 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.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)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal -1/2 binary64) lambda2) (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 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (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))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.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))) #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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(approx (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (pow.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 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi2)) #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 #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 #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 (pow.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 (* 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 (pow.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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (fma.f64 phi2 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (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))))) #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) #s(approx (+ (pow (sin (/ (- phi1 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 #s(literal -1/2 binary64) lambda2))) lambda1 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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)) (pow.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) lambda2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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))))))))))
(.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (pow.f64 (+.f64 phi2 phi1) #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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 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)) (pow.f64 (+.f64 lambda2 lambda1) #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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (.f64 #s(literal 2 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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (.f64 lambda1 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))

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

Calls

3 calls:

68.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))))))))

65.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)))))))))

64.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

Accuracy	Segments	Branch
61.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)))))))))
61.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))))))))
59.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 152 to 68 computations (55.3% saved)

regimes190.0ms (0.5%)

Memory

17.7MiB live, 278.3MiB allocated

Counts

202 → 2

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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)) (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 (-.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 #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 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (neg.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 #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)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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))))) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.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))))))))))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #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 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (-.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #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 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.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)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal -1/2 binary64) lambda2) (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 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (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))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.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))) #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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(approx (+ (* (pow (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))) 2) 2) (* (pow (sin (* 1/2 (+ phi2 phi1))) 2) (* (+ (cos (- phi1 phi2)) (cos (+ phi2 phi1))) (pow (sin (* (- lambda1 lambda2) 1/2)) 2)))) (.f64 #s(literal 2 binary64) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.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 4 binary64))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (pow.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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (pow.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 (+.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (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))) (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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))

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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))

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

Calls

2 calls:

96.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))))))))

69.0ms

(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

Results

Accuracy	Segments	Branch
61.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)))))))))
61.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))))))))

Compiler

Compiled 124 to 49 computations (60.5% saved)

regimes205.0ms (0.5%)

Memory

1.6MiB live, 225.9MiB allocated

Counts

180 → 2

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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)) (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 (-.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 #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 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (neg.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 #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)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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))))) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.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))))))))))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #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 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (-.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #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 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.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)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal -1/2 binary64) lambda2) (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 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (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))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))

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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))

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

Calls

3 calls:

73.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))))))))

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))))))))))

53.0ms

(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

Results

Accuracy	Segments	Branch
61.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))))))))))
61.1%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
61.1%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))

Compiler

Compiled 189 to 75 computations (60.3% saved)

regimes183.0ms (0.4%)

Memory

-5.2MiB live, 306.0MiB allocated

Counts

178 → 2

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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)) (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 (-.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 #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 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (neg.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 #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)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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))))) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.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))))))))))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #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 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (-.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #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 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.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)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal -1/2 binary64) lambda2) (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 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (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))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))

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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64)))

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

Calls

3 calls:

59.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))))))))

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))))))))))

51.0ms

(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

Results

Accuracy	Segments	Branch
61.1%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
61.1%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
61.1%	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))))))))))

Compiler

Compiled 189 to 75 computations (60.3% saved)

regimes244.0ms (0.6%)

Memory

14.5MiB live, 207.2MiB allocated

Counts

177 → 2

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.f64 #s(approx (+ (pow (/ 1 (/ (sin ( 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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))))) #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) phi2) (neg.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (fma.f64 (.f64 (neg.f64 phi1) phi1) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #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 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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)) (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 (-.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 #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 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (pow.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (pow.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 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (neg.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 #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)))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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))))) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 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 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (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))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (.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))))))))))
(.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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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)) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 (neg.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (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)))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #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 (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 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (-.f64 (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.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 (pow.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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 #s(approx (sin (* (- phi1 phi2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (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) lambda2)) #s(literal 2 binary64)) (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 #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (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) lambda2)) #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 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.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 (pow.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 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) phi1) (neg.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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #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)) (cos.f64 phi2)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 #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)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/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 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 4 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 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))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) #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 (fma.f64 (-.f64 (cos.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.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)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.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 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.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))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 (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))))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (exp.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.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 #s(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) phi1)) (fma.f64 (neg.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 (.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))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (/ 1 (/ (sin (* 1/2 (+ phi2 phi1))) (* (sin (* 1/2 (+ phi2 phi1))) (sin (* (- phi1 phi2) 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal -1/2 binary64) lambda2) (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 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (fma.f64 (.f64 (neg.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))) #s(literal -2 binary64)) #s(literal 1/4 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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (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))))))) (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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1))))))) #s(literal -2 binary64)) #s(literal 1/4 binary64) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 (-.f64 phi2 (+.f64 phi2 phi1)))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 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)) (sin.f64 (.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (cos.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))) (.f64 (sin.f64 (.f64 (+.f64 phi2 phi1) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (.f64 #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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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) lambda1)) (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 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 #s(literal 1/2 binary64) lambda1) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
(.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 (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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))

Calls

3 calls:

103.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))))))))))

67.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)))))))))

56.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

Accuracy	Segments	Branch
61.1%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
61.1%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
61.1%	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))))))))))

Compiler

Compiled 189 to 75 computations (60.3% saved)

regimes272.0ms (0.6%)

Memory

-34.8MiB live, 94.9MiB allocated

Counts

84 → 2

Calls

Call 1

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

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 (-.f64 #s(literal 1/2 binary64) (*.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))

Calls

3 calls:

103.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)))))))))

24.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))))))))))

Results

Accuracy	Segments	Branch
61.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))))))))))
61.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)))))))))
61.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))))))))

Compiler

Compiled 189 to 75 computations (60.3% saved)

regimes597.0ms (1.4%)

Memory

54.3MiB live, 391.5MiB allocated

Counts

77 → 2

Calls

Call 1

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

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

105.0ms	R
81.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))))))))))
75.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)))))))))
68.0ms	phi1
48.0ms	lambda2

Results

Accuracy	Segments	Branch
61.0%	3	`phi1`
57.2%	1	`R`
57.2%	1	`lambda2`
61.0%	3	`phi2`
59.8%	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.2%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
57.2%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
57.2%	1	`(-.f64 lambda1 lambda2)`
57.2%	1	`lambda1`
58.8%	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))))))))))
61.0%	3	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
61.0%	3	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes119.0ms (0.3%)

Memory

-26.7MiB live, 100.5MiB allocated

Counts

76 → 3

Calls

Call 1

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

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

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

Calls

2 calls:

49.0ms

phi1

48.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

Accuracy	Segments	Branch
61.0%	3	`phi1`
47.8%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`

Compiler

Compiled 29 to 24 computations (17.2% saved)

regimes84.0ms (0.2%)

Memory

27.1MiB live, 65.0MiB allocated

Counts

61 → 3

Calls

Call 1

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

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

(*.f64 (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 (-.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 #s(literal 2 binary64)))

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

Calls

3 calls:

42.0ms

phi1

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))))))))

17.0ms

(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

Results

Accuracy	Segments	Branch
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))))))))
61.0%	3	`phi1`

Compiler

Compiled 125 to 54 computations (56.8% saved)

regimes64.0ms (0.2%)

Memory

-6.9MiB live, 32.3MiB allocated

Counts

39 → 3

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

11.0ms	phi2
11.0ms	phi1

Results

Accuracy	Segments	Branch
61.0%	3	`phi2`
59.5%	3	`phi1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes54.0ms (0.1%)

Memory

-19.7MiB live, 18.8MiB allocated

Counts

38 → 3

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

50.0ms

phi2

Results

Accuracy	Segments	Branch
61.0%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes111.0ms (0.3%)

Memory

-10.8MiB live, 159.3MiB allocated

Counts

37 → 3

Calls

Call 1

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

Outputs

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

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

Calls

8 calls:

21.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
17.0ms	phi2
12.0ms	R
12.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
12.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))))))))))

Results

Accuracy	Segments	Branch
48.6%	2	`R`
49.3%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
48.2%	2	`lambda2`
49.9%	3	`lambda1`
50.7%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
50.7%	3	`(-.f64 lambda1 lambda2)`
51.1%	3	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
60.3%	3	`phi2`

Compiler

Compiled 83 to 69 computations (16.9% saved)

regimes107.0ms (0.3%)

Memory

-0.2MiB live, 200.4MiB allocated

Counts

25 → 1

Calls

Call 1

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

Outputs

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

Calls

12 calls:

10.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
10.0ms	phi1
9.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))))))))
9.0ms	R
9.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
44.0%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
44.0%	1	`lambda2`
44.0%	1	`lambda1`
44.0%	1	`R`
44.0%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
44.0%	1	`(-.f64 lambda1 lambda2)`
44.0%	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)))))))))
44.0%	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))))))))
44.0%	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)))))`
44.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))))))))))
44.0%	1	`phi1`
44.0%	1	`phi2`

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes117.0ms (0.3%)

Memory

17.1MiB live, 176.6MiB allocated

Counts

22 → 1

Calls

Call 1

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

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 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))

Calls

12 calls:

29.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))))))))))
9.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)))))))))
9.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
8.0ms	(-.f64 lambda1 lambda2)
8.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

Accuracy	Segments	Branch
44.0%	1	`phi1`
44.0%	1	`phi2`
44.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))))))))))
44.0%	1	`lambda1`
44.0%	1	`lambda2`
44.0%	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)))))))))
44.0%	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))))))))
44.0%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
44.0%	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)))))`
44.0%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
44.0%	1	`(-.f64 lambda1 lambda2)`
44.0%	1	`R`

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes125.0ms (0.3%)

Memory

13.8MiB live, 132.1MiB allocated

Counts

20 → 3

Calls

Call 1

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

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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))

(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1))))))))

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

Calls

12 calls:

25.0ms	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
19.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))))))))))
18.0ms	lambda1
7.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))))))))
7.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

Results

Accuracy	Segments	Branch
43.0%	3	`phi1`
38.5%	2	`phi2`
44.1%	3	`lambda2`
36.8%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
36.8%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
36.8%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
36.8%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
44.0%	3	`lambda1`
36.8%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
36.8%	1	`(-.f64 lambda1 lambda2)`
36.8%	1	`R`
36.8%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes26.0ms (0.1%)

Memory

-14.9MiB live, 26.8MiB allocated

Counts

19 → 3

Calls

Call 1

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

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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))

(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))

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

Calls

2 calls:

6.0ms	lambda1
6.0ms	lambda2

Results

Accuracy	Segments	Branch
43.9%	3	`lambda1`
42.6%	3	`lambda2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes29.0ms (0.1%)

Memory

-13.9MiB live, 25.5MiB allocated

Counts

18 → 3

Calls

Call 1

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

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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))

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

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

Calls

2 calls:

20.0ms	phi1
6.0ms	lambda1

Results

Accuracy	Segments	Branch
43.0%	3	`phi1`
42.7%	3	`lambda1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes108.0ms (0.3%)

Memory

4.0MiB live, 123.7MiB allocated

Counts

16 → 1

Calls

Call 1

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

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

Calls

12 calls:

31.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
15.0ms	phi2
7.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))))))))))
6.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))))))))
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)))))))))

Results

Accuracy	Segments	Branch
33.0%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
33.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))))))))))
33.0%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
33.0%	1	`R`
33.0%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
33.0%	1	`(-.f64 lambda1 lambda2)`
33.0%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
33.0%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
33.0%	1	`phi2`
33.0%	1	`lambda2`
33.0%	1	`lambda1`
33.0%	1	`phi1`

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes49.0ms (0.1%)

Memory

-3.5MiB live, 75.7MiB allocated

Counts

8 → 1

Calls

Call 1

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

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

Calls

12 calls:

7.0ms	lambda2
4.0ms	lambda1
4.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
4.0ms	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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

Accuracy	Segments	Branch
32.0%	1	`phi1`
32.0%	1	`lambda1`
32.0%	1	`phi2`
32.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))))))))))
32.0%	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.0%	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))))))))
32.0%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
32.0%	1	`(-.f64 lambda1 lambda2)`
32.0%	1	`R`
32.0%	1	`lambda2`
32.0%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
32.0%	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 236 to 142 computations (39.8% saved)

regimes40.0ms (0.1%)

Memory

11.8MiB live, 51.4MiB allocated

Counts

4 → 2

Calls

Call 1

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

Calls

12 calls:

13.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)))))
3.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
3.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
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))))))))))
2.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
31.9%	3	`lambda1`
30.6%	2	`lambda2`
28.3%	1	`phi1`
28.3%	1	`phi2`
28.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)))))`
28.3%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
28.3%	1	`(-.f64 lambda1 lambda2)`
28.3%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
28.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)))))))))
28.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))))))))
28.3%	1	`R`
28.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))))))))))

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes5.0ms (0%)

Memory

5.7MiB live, 5.7MiB allocated

Counts

3 → 3

Calls

Call 1

Inputs

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

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

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

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

Calls

2 calls:

2.0ms	lambda2
2.0ms	lambda1

Results

Accuracy	Segments	Branch
31.8%	3	`lambda1`
31.4%	3	`lambda2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes35.0ms (0.1%)

Memory

18.3MiB live, 52.0MiB allocated

Counts

2 → 3

Calls

Call 1

Inputs

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

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

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

(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))

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

Calls

12 calls:

14.0ms	phi2
2.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
2.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
2.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
2.0ms	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
30.9%	3	`lambda2`
24.3%	1	`phi1`
24.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)))))))))
24.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))))))))
24.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)))))`
24.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))))))))))
24.3%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
24.3%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
24.3%	1	`(-.f64 lambda1 lambda2)`
26.0%	2	`phi2`
24.3%	1	`R`
31.1%	3	`lambda1`

Compiler

Compiled 236 to 142 computations (39.8% saved)

regimes49.0ms (0.1%)

Memory

5.4MiB live, 41.5MiB allocated

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

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

Calls

12 calls:

31.0ms	lambda1
2.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
2.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
2.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
2.0ms	(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
24.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)))))))))
24.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))))))))
24.2%	1	`phi1`
24.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)))))`
24.2%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
24.2%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
24.2%	1	`(-.f64 lambda1 lambda2)`
24.2%	1	`R`
24.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))))))))))
24.2%	1	`phi2`
24.2%	1	`lambda2`
24.2%	1	`lambda1`

Compiler

Compiled 236 to 142 computations (39.8% saved)

bsearch33.0ms (0.1%)

Memory

-32.1MiB live, 6.8MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.5211981716645083e-5	8.502835730338062e-5

Compiler

Compiled 41 to 35 computations (14.6% saved)

bsearch4.0ms (0%)

Memory

6.8MiB live, 6.8MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.4508121750160388	1.4640243034404936

Compiler

Compiled 68 to 35 computations (48.5% saved)

bsearch4.0ms (0%)

Memory

5.6MiB live, 5.6MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.467719791075251	1.4956743988590118

Compiler

Compiled 68 to 35 computations (48.5% saved)

bsearch3.0ms (0%)

Memory

5.2MiB live, 5.2MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.1159381042561598e+302	7.025097758127362e+302

Compiler

Compiled 68 to 34 computations (50% saved)

bsearch3.0ms (0%)

Memory

5.0MiB live, 5.0MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	6.543669781609648e+297	1.5806395243617974e+301

Compiler

Compiled 68 to 34 computations (50% saved)

bsearch3.0ms (0%)

Memory

4.9MiB live, 4.9MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.5677813116006187	NaN

Compiler

Compiled 68 to 35 computations (48.5% saved)

bsearch2.0ms (0%)

Memory

2.5MiB live, 2.5MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.5677813116006187	NaN

Compiler

Compiled 68 to 35 computations (48.5% saved)

bsearch1.0ms (0%)

Memory

1.8MiB live, 1.8MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.5211981716645083e-5	8.502835730338062e-5

Compiler

Compiled 41 to 35 computations (14.6% saved)

bsearch317.0ms (0.8%)

Memory

-50.8MiB live, 287.3MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
132.0ms	0.0011270585644855395	1882.0927552238516
170.0ms	-352966.61050561466	-0.01305693493562818

Samples

276.0ms	240×	1	valid
9.0ms	48×	0	valid

Compiler

Compiled 3 425 to 1 744 computations (49.1% saved)

Precisions

Click to see histograms. Total time spent on operations: 270.0ms

ival-cos: 73.0ms (27% of total)

ival-sin: 45.0ms (16.7% of total)

ival-div: 39.0ms (14.4% of total)

ival-atan2: 39.0ms (14.4% of total)

ival-mult: 23.0ms (8.5% of total)

ival-pow2: 17.0ms (6.3% of total)

ival-sub: 12.0ms (4.4% of total)

adjust: 12.0ms (4.4% of total)

ival-sqrt: 7.0ms (2.6% of total)

ival-add: 2.0ms (0.7% of total)

ival-true: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch7.0ms (0%)

Memory

14.2MiB live, 14.2MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	0.0011270585644855395	1882.0927552238516
3.0ms	-352966.61050561466	-0.01305693493562818

Compiler

Compiled 3 299 to 1 672 computations (49.3% saved)

bsearch198.0ms (0.5%)

Memory

19.0MiB live, 335.1MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
101.0ms	3548303124307.0977	3521988825023650300.0
86.0ms	-0.8236716882047919	-0.0009652064641068973

Samples

155.0ms	221×	1	valid
13.0ms	51×	0	valid

Compiler

Compiled 3 332 to 1 819 computations (45.4% saved)

Precisions

Click to see histograms. Total time spent on operations: 153.0ms

ival-sin: 46.0ms (30% of total)

ival-cos: 36.0ms (23.5% of total)

ival-mult: 17.0ms (11.1% of total)

adjust: 15.0ms (9.8% of total)

ival-sub: 8.0ms (5.2% of total)

ival-pow2: 8.0ms (5.2% of total)

ival-sqrt: 7.0ms (4.6% of total)

ival-div: 7.0ms (4.6% of total)

ival-atan2: 7.0ms (4.6% of total)

ival-add: 2.0ms (1.3% of total)

ival-true: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch9.0ms (0%)

Memory

-25.5MiB live, 12.6MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
6.0ms	3548303124307.0977	3521988825023650300.0
3.0ms	-0.8236716882047919	-0.0009652064641068973

Compiler

Compiled 3 332 to 1 819 computations (45.4% saved)

bsearch90.0ms (0.2%)

Memory

27.8MiB live, 146.9MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
81.0ms	1.2989687860452768e+30	2.897262338502131e+32
3.0ms	-0.8236716882047919	-0.0009652064641068973

Samples

74.0ms	111×	1	valid
0.0ms	1×	0	valid

Compiler

Compiled 3 308 to 1 579 computations (52.3% saved)

Precisions

Click to see histograms. Total time spent on operations: 68.0ms

ival-sin: 22.0ms (32.2% of total)

ival-cos: 16.0ms (23.4% of total)

ival-mult: 8.0ms (11.7% of total)

adjust: 5.0ms (7.3% of total)

ival-sub: 4.0ms (5.9% of total)

ival-sqrt: 3.0ms (4.4% of total)

ival-div: 3.0ms (4.4% of total)

ival-atan2: 3.0ms (4.4% of total)

ival-pow2: 2.0ms (2.9% of total)

ival-add: 1.0ms (1.5% of total)

ival-true: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch300.0ms (0.7%)

Memory

-7.3MiB live, 307.3MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
82.0ms	4.977048347161818e-9	1.1652639498949229e-7
205.0ms	-0.00037484923353778364	-2.348990278961208e-8

Samples

264.0ms	196×	1	valid
8.0ms	44×	0	valid

Compiler

Compiled 3 278 to 1 624 computations (50.5% saved)

Precisions

Click to see histograms. Total time spent on operations: 259.0ms

ival-mult: 124.0ms (48% of total)

ival-cos: 46.0ms (17.8% of total)

ival-sin: 36.0ms (13.9% of total)

ival-div: 11.0ms (4.3% of total)

adjust: 10.0ms (3.9% of total)

ival-sub: 9.0ms (3.5% of total)

ival-pow2: 9.0ms (3.5% of total)

ival-sqrt: 6.0ms (2.3% of total)

ival-atan2: 6.0ms (2.3% of total)

ival-add: 2.0ms (0.8% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch284.0ms (0.7%)

Memory

-13.1MiB live, 391.1MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
147.0ms	93.9079083419713	93250109008.12367
111.0ms	-0.001433930500765386	-2.1836145194047282e-12

Samples

222.0ms	229×	1	valid
12.0ms	59×	0	valid

Compiler

Compiled 3 920 to 1 942 computations (50.5% saved)

Precisions

Click to see histograms. Total time spent on operations: 213.0ms

ival-cos: 54.0ms (25.3% of total)

ival-sub: 46.0ms (21.6% of total)

ival-sin: 45.0ms (21.1% of total)

adjust: 21.0ms (9.9% of total)

ival-mult: 17.0ms (8% of total)

ival-div: 7.0ms (3.3% of total)

ival-sqrt: 7.0ms (3.3% of total)

ival-atan2: 7.0ms (3.3% of total)

ival-pow2: 6.0ms (2.8% of total)

ival-add: 2.0ms (0.9% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch33.0ms (0.1%)

Memory

28.2MiB live, 63.7MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
17.0ms	0.0011270585644855395	1882.0927552238516
13.0ms	-352966.61050561466	-0.01305693493562818

Samples

19.0ms	31×	1	valid
0.0ms	1×	0	valid

Compiler

Compiled 4 118 to 2 086 computations (49.3% saved)

Precisions

Click to see histograms. Total time spent on operations: 18.0ms

ival-sin: 5.0ms (28.2% of total)

ival-cos: 4.0ms (22.6% of total)

adjust: 2.0ms (11.3% of total)

ival-mult: 2.0ms (11.3% of total)

ival-sub: 1.0ms (5.6% of total)

ival-div: 1.0ms (5.6% of total)

ival-pow2: 1.0ms (5.6% of total)

ival-sqrt: 1.0ms (5.6% of total)

ival-atan2: 1.0ms (5.6% 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)

bsearch139.0ms (0.3%)

Memory

-29.2MiB live, 130.6MiB allocated

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
129.0ms	-9.799103344426911e-65	-1.3353852749777586e-67

Samples

118.0ms	110×	1	valid
3.0ms	18×	0	valid

Compiler

Compiled 1 956 to 954 computations (51.2% saved)

Precisions

Click to see histograms. Total time spent on operations: 114.0ms

ival-cos: 54.0ms (47.3% of total)

ival-sin: 29.0ms (25.4% of total)

ival-mult: 8.0ms (7% of total)

adjust: 6.0ms (5.3% of total)

ival-sub: 4.0ms (3.5% of total)

ival-div: 3.0ms (2.6% of total)

ival-pow2: 3.0ms (2.6% of total)

ival-sqrt: 3.0ms (2.6% of total)

ival-atan2: 3.0ms (2.6% of total)

ival-add: 1.0ms (0.9% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch7.0ms (0%)

Memory

14.4MiB live, 14.4MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	93.9079083419713	93250109008.12367
3.0ms	-0.001433930500765386	-2.1836145194047282e-12

Compiler

Compiled 4 316 to 2 104 computations (51.3% saved)

bsearch266.0ms (0.6%)

Memory

18.0MiB live, 408.2MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
123.0ms	4.944403739778857e-30	2.1501447856614497e-29
133.0ms	-6.449314530515875e-71	-3.767909588980476e-82

Samples

231.0ms	217×	1	valid
7.0ms	39×	0	valid

Compiler

Compiled 3 844 to 1 874 computations (51.2% saved)

Precisions

Click to see histograms. Total time spent on operations: 224.0ms

ival-cos: 89.0ms (39.8% of total)

ival-sin: 49.0ms (21.9% of total)

ival-mult: 39.0ms (17.4% of total)

adjust: 12.0ms (5.4% of total)

ival-sub: 8.0ms (3.6% of total)

ival-sqrt: 7.0ms (3.1% of total)

ival-pow2: 6.0ms (2.7% of total)

ival-div: 6.0ms (2.7% of total)

ival-atan2: 6.0ms (2.7% of total)

ival-add: 2.0ms (0.9% of total)

ival-true: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

simplify380.0ms (0.9%)

Memory

4.7MiB live, 89.8MiB allocated

Algorithm

1×	egg-herbie

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	432	6390
1	621	6390
2	729	6390
3	808	6390
4	873	6390
5	917	6390
6	942	6390
7	1221	6390
8	1971	6390
9	2497	6390
10	2531	6390
11	2598	6390
12	2696	6390
13	2794	6390
14	2876	6390
15	2926	6390
16	2943	6390
17	2958	6390
18	2962	6390
19	2962	6390

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 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
#s(approx (* 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 1/2)) (cos (* 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #s(literal 2 binary64))))))))
(.f64 R #s(approx ( 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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))))))))))
(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 7378697629483821/147573952589676412928 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 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (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 (*.f64 (cos.f64 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 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 1643813863990231/1125899906842624 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #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 #s(literal -1/2 binary64) phi2)) #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)))))))))
(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 3332663724254167/2251799813685248 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.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 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(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 400000000000000030518812316339579701389387420602627246806406936824845521152503177936568755858767136306558990308554195045488841551379199753167262445402079323000670599425955926506145472381658429256940604233493835947563300622636254470863452821130489562037136733759434468412334942695399596818281992630042624 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(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 9999999999999999595662034753429788238255624467393741467120915117996487670031669885400803025551745174706847878231119663145222863482996149222332143382301002459214758820269116923021527058285459686414683385913622455551313826420028155008403585629126369847605750170289266545852965785882018353801250996224 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(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 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(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 2 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(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 7378697629483821/147573952589676412928 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 phi1 #s(literal -3804640965202595/288230376151711744 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (if (<=.f64 phi1 #s(literal 662929865148937/576460752303423488 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -3804640965202595/288230376151711744 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (if (<=.f64 phi1 #s(literal 662929865148937/576460752303423488 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 (-.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 #s(literal 2 binary64))) (.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -564931537257355/576460752303423488 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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))))))))) (if (<=.f64 phi2 #s(literal 3600000000000 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (pow.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)))))))))))
(if (<=.f64 phi2 #s(literal -564931537257355/576460752303423488 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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))))))))) (if (<=.f64 phi2 #s(literal 3600000000000 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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)))))))))))
(if (<=.f64 phi2 #s(literal -564931537257355/576460752303423488 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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))))))))) (if (<=.f64 phi2 #s(literal 1299999999999999941407519277056 binary64)) (.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (pow.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 (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(if (<=.f64 lambda2 #s(literal -6375194751874021/1180591620717411303424 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (if (<=.f64 lambda2 #s(literal 8689154328480147/75557863725914323419136 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1)))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))))
(if (<=.f64 lambda1 #s(literal -1936908127739503/4611686018427387904 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (if (<=.f64 lambda1 #s(literal 95 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))))
(if (<=.f64 phi1 #s(literal -8358680908399641/576460752303423488 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (if (<=.f64 phi1 #s(literal 5764607523034235/4611686018427387904 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(if (<=.f64 lambda2 #s(literal -2845706385096283/29642774844752946028434172162224104410437116074403984394101141506025761187823616 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64))))))))))
(if (<=.f64 lambda1 #s(literal -1890791267555229/4611686018427387904 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (if (<=.f64 lambda1 #s(literal 95 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))
(if (<=.f64 lambda1 #s(literal -3232601036663613/248661618204893321077691124073410420050228075398673858720231988446579748506266687766528 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (if (<=.f64 lambda1 #s(literal 3835728174147267/178405961588244985132285746181186892047843328 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))

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 (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 (.f64 (cos.f64 phi1) (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 (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 (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 (.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(approx (* 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 1/2)) (cos (* 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 (cos.f64 phi1) (cos.f64 phi2)) (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 (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 (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)))) #s(literal 2 binary64))))))))
#s(approx (* 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 1/2)) (cos (* 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 (cos.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 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 (.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 (fma.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))
(.f64 R #s(approx ( 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 phi1) (cos.f64 phi2)) (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)))))) #s(literal 2 binary64))))
(.f64 #s(approx ( 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 (* -1/2 phi2)) (cos (* 1/2 phi1))) (* (cos (* -1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 (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 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 (.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 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))) 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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (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 (-.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))) (.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)
(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 7378697629483821/147573952589676412928 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 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 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 (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 (*.f64 (cos.f64 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 (+.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 7378697629483821/147573952589676412928 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R) (.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.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))) (.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 (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 (*.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))
(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 1643813863990231/1125899906842624 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #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 #s(literal -1/2 binary64) phi2)) #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)))))))))
(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 1643813863990231/1125899906842624 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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (.f64 (atan2.f64 (sqrt.f64 (+.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)))))) (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)))))) #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 3332663724254167/2251799813685248 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.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 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(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 3332663724254167/2251799813685248 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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 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))))))) #s(literal 2 binary64)) R))
(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 400000000000000030518812316339579701389387420602627246806406936824845521152503177936568755858767136306558990308554195045488841551379199753167262445402079323000670599425955926506145472381658429256940604233493835947563300622636254470863452821130489562037136733759434468412334942695399596818281992630042624 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(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 400000000000000030518812316339579701389387420602627246806406936824845521152503177936568755858767136306558990308554195045488841551379199753167262445402079323000670599425955926506145472381658429256940604233493835947563300622636254470863452821130489562037136733759434468412334942695399596818281992630042624 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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 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))))))) #s(literal 2 binary64)) R))
(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 9999999999999999595662034753429788238255624467393741467120915117996487670031669885400803025551745174706847878231119663145222863482996149222332143382301002459214758820269116923021527058285459686414683385913622455551313826420028155008403585629126369847605750170289266545852965785882018353801250996224 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
(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 9999999999999999595662034753429788238255624467393741467120915117996487670031669885400803025551745174706847878231119663145222863482996149222332143382301002459214758820269116923021527058285459686414683385913622455551313826420028155008403585629126369847605750170289266545852965785882018353801250996224 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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (pow.f64 (fma.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 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))))))) #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 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 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #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 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(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 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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #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 2 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(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 2 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 (-.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))) (.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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #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 7378697629483821/147573952589676412928 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 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 (+.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 7378697629483821/147573952589676412928 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 (atan2.f64 (sqrt.f64 (+.f64 (-.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))) (.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))
(if (<=.f64 phi1 #s(literal -3804640965202595/288230376151711744 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (if (<=.f64 phi1 #s(literal 662929865148937/576460752303423488 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.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 #s(literal 1/2 binary64) phi2)) #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 (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -3804640965202595/288230376151711744 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (if (<=.f64 phi1 #s(literal 662929865148937/576460752303423488 binary64)) (.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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)))))) #s(literal 2 binary64)) R) (.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi1 #s(literal -3804640965202595/288230376151711744 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))) (if (<=.f64 phi1 #s(literal 662929865148937/576460752303423488 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 (-.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 #s(literal 2 binary64))) (.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -3804640965202595/288230376151711744 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (if (<=.f64 phi1 #s(literal 662929865148937/576460752303423488 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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R)) (.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi2 #s(literal -564931537257355/576460752303423488 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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))))))))) (if (<=.f64 phi2 #s(literal 3600000000000 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (pow.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)))))))))))
(if (<=.f64 phi2 #s(literal -564931537257355/576460752303423488 binary64)) (.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (if (<=.f64 phi2 #s(literal 3600000000000 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) R)) (.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R)))
(if (<=.f64 phi2 #s(literal -564931537257355/576460752303423488 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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))))))))) (if (<=.f64 phi2 #s(literal 3600000000000 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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)))))))))))
(if (<=.f64 phi2 #s(literal -564931537257355/576460752303423488 binary64)) (.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (if (<=.f64 phi2 #s(literal 3600000000000 binary64)) (.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (pow.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 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R) (.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R)))
(if (<=.f64 phi2 #s(literal -564931537257355/576460752303423488 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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))))))))) (if (<=.f64 phi2 #s(literal 1299999999999999941407519277056 binary64)) (.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 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 (pow.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)))))))))))
(if (<=.f64 phi2 #s(literal -564931537257355/576460752303423488 binary64)) (.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (if (<=.f64 phi2 #s(literal 1299999999999999941407519277056 binary64)) (.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) R)) (.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R)))
(.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 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) R))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(if (<=.f64 lambda2 #s(literal -6375194751874021/1180591620717411303424 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (if (<=.f64 lambda2 #s(literal 8689154328480147/75557863725914323419136 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 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 phi1)))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1))))))))))
(if (<=.f64 lambda2 #s(literal -6375194751874021/1180591620717411303424 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R) (if (<=.f64 lambda2 #s(literal 8689154328480147/75557863725914323419136 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R) (.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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)))
(if (<=.f64 lambda1 #s(literal -1936908127739503/4611686018427387904 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (if (<=.f64 lambda1 #s(literal 95 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))))
(if (<=.f64 lambda1 #s(literal -1936908127739503/4611686018427387904 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 lambda1 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R) (if (<=.f64 lambda1 #s(literal 95 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R) (.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 lambda1 #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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)))
(if (<=.f64 phi1 #s(literal -8358680908399641/576460752303423488 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (if (<=.f64 phi1 #s(literal 5764607523034235/4611686018427387904 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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))))
(if (<=.f64 phi1 #s(literal -8358680908399641/576460752303423488 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R) (if (<=.f64 phi1 #s(literal 5764607523034235/4611686018427387904 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 (.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 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 #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 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 (.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 (.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 (.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R)
(if (<=.f64 lambda2 #s(literal -2845706385096283/29642774844752946028434172162224104410437116074403984394101141506025761187823616 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64))))))))))
(if (<=.f64 lambda2 #s(literal -2845706385096283/29642774844752946028434172162224104410437116074403984394101141506025761187823616 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R))
(if (<=.f64 lambda1 #s(literal -1890791267555229/4611686018427387904 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (if (<=.f64 lambda1 #s(literal 95 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))
(if (<=.f64 lambda1 #s(literal -1890791267555229/4611686018427387904 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 lambda1 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (if (<=.f64 lambda1 #s(literal 95 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 lambda1 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R)))
(if (<=.f64 lambda1 #s(literal -3232601036663613/248661618204893321077691124073410420050228075398673858720231988446579748506266687766528 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (if (<=.f64 lambda1 #s(literal 3835728174147267/178405961588244985132285746181186892047843328 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))
(if (<=.f64 lambda1 #s(literal -3232601036663613/248661618204893321077691124073410420050228075398673858720231988446579748506266687766528 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 lambda1 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (if (<=.f64 lambda1 #s(literal 3835728174147267/178405961588244985132285746181186892047843328 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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 lambda1 #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R)))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(.f64 (.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 #s(approx (sin (* (- lambda1 lambda2) 1/2)) (sin.f64 (.f64 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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (- (pow (cos (* -1/2 phi1)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R)

soundness2.2s (5.3%)

Memory

9.1MiB live, 1 602.6MiB allocated

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	396	7655
1	1262	7612
2	4048	7506
0	8015	7178
0	26	153
0	45	153
1	149	133
2	997	129
0	8852	127
0	149	1968
0	263	1817
1	810	1594
2	5331	1594
0	8779	1561
0	814	53339
1	2588	53043
0	8210	50918
0	1280	77558
1	4285	76372
0	8204	73379
0	94	1172
0	165	1042
1	429	964
2	2686	936
0	8636	921
0	117	1517
0	213	1410
1	635	1206
2	4451	1188
0	8529	1168
0	501	48334
1	1558	48264
2	4897	48195
0	8919	46125

Stop Event

1×	fuel
1×	iter limit
1×	node limit
1×	iter limit
1×	node limit
1×	iter limit
1×	iter limit
1×	node limit
1×	iter limit
1×	iter limit
1×	node 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

Compiler

Compiled 12 763 to 3 655 computations (71.4% saved)

preprocess647.0ms (1.5%)

Memory: -2.4MiB live, 434.8MiB allocated
Remove: (negabs R)
Compiler: Compiled 14 690 to 1 608 computations (89.1% saved)

end0.0ms (0%)

Memory: 0.0MiB live, 0.0MiB allocated